From ea52108ff79ab261370681690342352abef14e9f Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Fri, 17 Jan 2020 01:50:12 +0100 Subject: [PATCH] Laziness annotation on guardM --- lib/GHCup/Prelude.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/GHCup/Prelude.hs b/lib/GHCup/Prelude.hs index 35942de..5e0dba5 100644 --- a/lib/GHCup/Prelude.hs +++ b/lib/GHCup/Prelude.hs @@ -82,7 +82,7 @@ whileM_ :: Monad m => m a -> (a -> m Bool) -> m () whileM_ ~action = void . whileM action guardM :: (Monad m, Alternative m) => m Bool -> m () -guardM f = guard =<< f +guardM ~f = guard =<< f lBS2sT :: L.ByteString -> Text lBS2sT = TL.toStrict . TLE.decodeUtf8