diff options
| author | jao <jao@gnu.org> | 2022-09-26 03:52:56 +0100 | 
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-09-26 03:52:56 +0100 | 
| commit | f946b9c37b39a1b46bfe6433434f951ece531d94 (patch) | |
| tree | aaccadcf6efcbc05c6f09c83a640b66b457d0ef6 /src/Xmobar/System | |
| parent | 579b787c66124c1bc67dfa7a4ad00f3a8e3611cb (diff) | |
| download | xmobar-f946b9c37b39a1b46bfe6433434f951ece531d94.tar.gz xmobar-f946b9c37b39a1b46bfe6433434f951ece531d94.tar.bz2 | |
more little import clean ups
Diffstat (limited to 'src/Xmobar/System')
| -rw-r--r-- | src/Xmobar/System/Environment.hs | 6 | 
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 | 
