diff options
| -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" |