Simplify hcompta-lib.

[comptalang.git] / cli / Hcompta / CLI / Main.hs

diff --git a/cli/Hcompta/CLI/Main.hs b/cli/Hcompta/CLI/Main.hs
index 7446a8d1516dab5551803bda25f4201801e7318a..9932c313aff9bd4c8ff6408a05296b50d15e9ad6 100644 (file)
--- a/cli/Hcompta/CLI/Main.hs
+++ b/cli/Hcompta/CLI/Main.hs
@@ -2,23 +2,25 @@
 {-# LANGUAGE TupleSections #-}
 module Main (main) where
 
+import           Control.Monad (Monad(..))
+import           Data.Function ((.))
+import           Data.Monoid ((<>))
 import qualified Data.Text.Lazy as TL
-import           Prelude
-import           System.Environment (getArgs)
+import qualified System.Environment as Env
+import           System.IO (IO)
+import qualified Text.WalderLeijen.ANSI.Text as W
 
 import qualified Hcompta.CLI.Args as Args
 import qualified Hcompta.CLI.Command as Command
 import qualified Hcompta.CLI.Context as C
 import qualified Hcompta.CLI.Lang as Lang
 import qualified Hcompta.CLI.Write as Write
-import qualified Hcompta.Lib.Leijen as W
-import           Hcompta.Lib.Leijen ((<>))
 
 main :: IO ()
 main = do
        (c, cmds) <- do
                c <- C.context
-               getArgs >>= Args.parse c Command.usage Command.options . (c,)
+               Env.getArgs >>= Args.parse c Command.usage Command.options . (c,)
        case cmds of
         cmd:args -> Command.run c cmd args
         [] -> Command.usage c