Fix warnings

Gabriella439 · Apr 29, 2017 · 5a41c24 · 5a41c24
1 parent 5b29c2f
commit 5a41c24
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 5 deletions.
diff --git a/src/Turtle/Prelude.hs b/src/Turtle/Prelude.hs
@@ -1874,9 +1874,9 @@ header (Shell k) = Shell k'
 -- >   print directory
 single :: MonadIO io => Shell a -> io (Maybe a)
 single s = do
-    ls <- fold s Control.Foldl.list
-    case ls of
+    as <- fold s Control.Foldl.list
+    case as of
         [a] -> return (Just a)
         _   -> do
-            let msg = format ("single: expected 1 line of input but there were "%d%" lines of input") (length ls)
+            let msg = format ("single: expected 1 line of input but there were "%d%" lines of input") (length as)
             die msg
diff --git a/test/RegressionMaskingException.hs b/test/RegressionMaskingException.hs
@@ -2,8 +2,6 @@
 
 import Turtle
 
-import qualified System.Timeout
-
 -- This test fails by hanging
 main :: IO ()
 main = runManaged (do