{- |
Module                  : DrCabal
Copyright               : (c) 2022 Dmitrii Kovanikov
SPDX-License-Identifier : MPL-2.0
Maintainer              : Dmitrii Kovanikov <kovanikov@gmail.com>
Stability               : Experimental
Portability             : Portable

See README for more info.
-}

module DrCabal
    ( main
    ) where

import DrCabal.Cli (Command (..), readCommand)
import DrCabal.Profile (runProfile)


main :: IO ()
main :: IO ()
main = IO Command
readCommand forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= Command -> IO ()
runDrCabal

runDrCabal :: Command -> IO ()
runDrCabal :: Command -> IO ()
runDrCabal = \case
    Profile ProfileArgs
args -> ProfileArgs -> IO ()
runProfile ProfileArgs
args