Fix some lints

2 files changed, 3 insertions, 1 deletions

diff --git a/Alpha.hs b/Alpha.hs
index 1da1f1a..619973c 100644
--- a/Alpha.hs
+++ b/Alpha.hs
@@ -159,6 +159,8 @@ infixl 1 />
 bind :: Monad m => m a -> (a -> m b) -> m b
 bind a f = a Prelude.>>= f
 
+{- HLINT ignore "Use +>" -}
+
 (+>) :: Monad m => m a -> (a -> m b) -> m b
 a +> b = a Prelude.>>= b
 
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 []