From 8251b2f70ebcc044f57b45fa4764ffc34f80ec5f Mon Sep 17 00:00:00 2001 From: jao Date: Thu, 28 Jul 2016 00:55:52 +0200 Subject: Trivial compiler warning --- src/Environment.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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" -- cgit v1.2.3