diff options
Diffstat (limited to 'System/Random')
| -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 [] |