summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/System/Environment.hs
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-09-26 03:52:56 +0100
committerjao <jao@gnu.org>2022-09-26 03:52:56 +0100
commitf946b9c37b39a1b46bfe6433434f951ece531d94 (patch)
treeaaccadcf6efcbc05c6f09c83a640b66b457d0ef6 /src/Xmobar/System/Environment.hs
parent579b787c66124c1bc67dfa7a4ad00f3a8e3611cb (diff)
downloadxmobar-f946b9c37b39a1b46bfe6433434f951ece531d94.tar.gz
xmobar-f946b9c37b39a1b46bfe6433434f951ece531d94.tar.bz2
more little import clean ups
Diffstat (limited to 'src/Xmobar/System/Environment.hs')
-rw-r--r--src/Xmobar/System/Environment.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Xmobar/System/Environment.hs b/src/Xmobar/System/Environment.hs
index 25802fe..42483ca 100644
--- a/src/Xmobar/System/Environment.hs
+++ b/src/Xmobar/System/Environment.hs
@@ -13,14 +13,14 @@
-----------------------------------------------------------------------------
module Xmobar.System.Environment(expandEnv) where
-import Data.Maybe (fromMaybe)
-import System.Environment (lookupEnv)
+import qualified Data.Maybe as M
+import qualified System.Environment as E
expandEnv :: String -> IO String
expandEnv "" = return ""
expandEnv (c:s) = case c of
'$' -> do
- envVar <- fromMaybe "" <$> lookupEnv e
+ envVar <- M.fromMaybe "" <$> E.lookupEnv e
remainder <- expandEnv s'
return $ envVar ++ remainder
where (e, s') = getVar s