From 72143cb38608bb48f8d7de5f25687bc4368f550e Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 27 Jul 2016 01:05:40 +0200 Subject: Trivial fixes for compiler warnings --- src/Environment.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Environment.hs b/src/Environment.hs index ebdf733..f0edece 100644 --- a/src/Environment.hs +++ b/src/Environment.hs @@ -25,8 +25,8 @@ expandEnv (c:s) = case c of return $ envVar ++ remainder where (e, s') = getVar s getVar "" = ("", "") - getVar ('{':s) = (takeUntil "}" s, drop 1 . dropUntil "}" $ s) - getVar s = (takeUntil filterstr s, dropUntil filterstr s) + getVar ('{':s'') = (takeUntil "}" s'', drop 1 . dropUntil "}" $ s'') + getVar s'' = (takeUntil filterstr s'', dropUntil filterstr s'') filterstr = ",./? \t;:\"'~`!@#$%^&*()<>-+=\\|" takeUntil f = takeWhile (not . flip elem f) dropUntil f = dropWhile (not . flip elem f) @@ -36,7 +36,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:ss) = s' in case cc of 't' -> "\t" 'n' -> "\n" -- cgit v1.2.3