From c2a125cefb0bf41140db398248a5b8523b46a42e Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 26 Nov 2018 00:49:33 +0000 Subject: Xmobar.Config.Parse --- app/Main.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'app/Main.hs') diff --git a/app/Main.hs b/app/Main.hs index c37fb89..35bff7d 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -27,7 +27,7 @@ import Text.Read (readMaybe) import Xmobar import Paths_xmobar (version) -import Configuration (readConfig, readDefaultConfig) +import Configuration as C (readConfig, readDefaultConfig) -- $main @@ -36,8 +36,8 @@ main :: IO () main = do (o,file) <- getArgs >>= getOpts (c,defaultings) <- case file of - [cfgfile] -> readConfig cfgfile usage - _ -> readDefaultConfig usage + [cfgfile] -> C.readConfig cfgfile usage + _ -> C.readDefaultConfig usage unless (null defaultings) $ putStrLn $ "Fields missing from config defaulted: " ++ intercalate "," defaultings doOpts c o >>= xmobar -- cgit v1.2.3