From a6c19b764ec05c9e3bbccd2135f6e553a9defcff Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Mon, 1 Aug 2022 18:30:46 -0400 Subject: Fix some lints --- System/Random/Shuffle.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'System/Random') diff --git a/System/Random/Shuffle.hs b/System/Random/Shuffle.hs index cc587da..38d0a27 100644 --- a/System/Random/Shuffle.hs +++ b/System/Random/Shuffle.hs @@ -113,7 +113,7 @@ shuffle' elements len = shuffle elements <. rseq len shuffleM :: (MonadRandom m) => [a] -> m [a] shuffleM elements | null elements = pure [] - | otherwise = shuffle elements <$> rseqM (length elements - 1) + | otherwise = shuffle elements Int -> m [Int] rseqM 0 = pure [] -- cgit v1.2.3