diff options
| author | Ben Sima <ben@bsima.me> | 2022-08-01 18:30:46 -0400 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2022-08-01 20:04:35 -0400 |
| commit | a6c19b764ec05c9e3bbccd2135f6e553a9defcff (patch) | |
| tree | 1d62733cb45dfec455a3d1486c5df9abac82896e /System | |
| parent | 5c44e461802be53e14222f377f535571743da524 (diff) | |
Fix some lints
Diffstat (limited to 'System')
| -rw-r--r-- | System/Random/Shuffle.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 </ rseqM (length elements - 1) where rseqM :: (MonadRandom m) => Int -> m [Int] rseqM 0 = pure [] |