From 5a41c24d6d918bfdcf7a51b4d5cc95f347b6eb03 Mon Sep 17 00:00:00 2001 From: Gabriel Gonzalez Date: Sat, 29 Apr 2017 14:03:04 -0700 Subject: [PATCH] Fix warnings --- src/Turtle/Prelude.hs | 6 +++--- test/RegressionMaskingException.hs | 2 -- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/src/Turtle/Prelude.hs b/src/Turtle/Prelude.hs index e62ce94..e425a10 100644 --- 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 index ae4431a..5cfe4e6 100644 --- 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