module DrCabal
( main
) where
import DrCabal.Cli (Command (..), readCommand)
import DrCabal.Profile (runProfile)
import DrCabal.Watch (runWatch)
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
Watch WatchArgs
args -> WatchArgs -> IO ()
runWatch WatchArgs
args
Profile ProfileArgs
args -> ProfileArgs -> IO ()
runProfile ProfileArgs
args