hi-0.0.6: src/Main.hs

module Main where

import           Hi         (run)
import           Hi.Option  (getInitFlags, getMode)
import           Hi.Types
import           Hi.Version (version)

main :: IO ()
main = do
    mode <- getMode
    case mode of
      ShowVersion                -> putStrLn version
      RunWithNoConfigurationFile -> run =<< getInitFlags
      Run                        -> run =<< getInitFlags