module Cloudy where import Cloudy.Cli (parseCliOpts) import Cloudy.Cmd (runCmd) import Cloudy.LocalConfFile (readLocalConfFile) defaultMain :: IO () defaultMain :: IO () defaultMain = do CliCmd cmd <- IO CliCmd parseCliOpts LocalConfFileOpts localConfFileOpts <- IO LocalConfFileOpts readLocalConfFile LocalConfFileOpts -> CliCmd -> IO () runCmd LocalConfFileOpts localConfFileOpts CliCmd cmd