diff options
| author | jao <jao@gnu.org> | 2024-03-30 18:26:01 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2024-03-30 18:26:01 +0000 |
| commit | 30d226ba5eca8847775d03403367dee1f1e3dcfc (patch) | |
| tree | b62d0f7f176f9f2b58d66866c3c6afb581334bd6 /src/Xmobar/System | |
| parent | 3f4ae1034fe7575df05c59dd0c357fd448198594 (diff) | |
| download | xmobar-30d226ba5eca8847775d03403367dee1f1e3dcfc.tar.gz xmobar-30d226ba5eca8847775d03403367dee1f1e3dcfc.tar.bz2 | |
fix for unmet pattern matches warnings (clean build)
Diffstat (limited to 'src/Xmobar/System')
| -rw-r--r-- | src/Xmobar/System/Environment.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Xmobar/System/Environment.hs b/src/Xmobar/System/Environment.hs index 42483ca..0491bcc 100644 --- a/src/Xmobar/System/Environment.hs +++ b/src/Xmobar/System/Environment.hs @@ -36,12 +36,13 @@ expandEnv (c:s) = case c of False -> do remainder <- expandEnv $ drop 1 s return $ escString s ++ remainder - where escString s' = let (cc:_) = s' in + where escString (cc:_) = case cc of 't' -> "\t" 'n' -> "\n" '$' -> "$" _ -> [cc] + escString [] = "" _ -> do remainder <- expandEnv s |