hi-0.0.2: src/Main.hs

module Main where

import qualified Distribution.Hi         as Hi
import           Distribution.Hi.Option  (getInitFlags, getMode)
import           Distribution.Hi.Types
import           Distribution.Hi.Version (version)

main :: IO ()
main = do
    mode <- getMode
    case mode of
      ShowVersion                -> print version
      RunWithNoConfigurationFile -> Hi.cli =<< getInitFlags
      Run                        -> Hi.cli =<< getInitFlags