{- | 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