diff options
| author | jao <jao@gnu.org> | 2016-07-28 00:55:52 +0200 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2016-07-28 00:55:52 +0200 |
| commit | 8251b2f70ebcc044f57b45fa4764ffc34f80ec5f (patch) | |
| tree | 2905e29ab9f54e6a14cd9f0233f96d28f8fc374a | |
| parent | 522c5cf0cc14dea251186d506cb361fda2812027 (diff) | |
| download | xmobar-8251b2f70ebcc044f57b45fa4764ffc34f80ec5f.tar.gz xmobar-8251b2f70ebcc044f57b45fa4764ffc34f80ec5f.tar.bz2 | |
Trivial compiler warning0.24.1
| -rw-r--r-- | src/Environment.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Environment.hs b/src/Environment.hs index 8fbb35f..120dac6 100644 --- a/src/Environment.hs +++ b/src/Environment.hs @@ -37,7 +37,7 @@ expandEnv (c:s) = case c of False -> do remainder <- expandEnv $ drop 1 s return $ escString s ++ remainder - where escString s' = let (cc:ss) = s' in + where escString s' = let (cc:_) = s' in case cc of 't' -> "\t" 'n' -> "\n" |