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