From a6c19b764ec05c9e3bbccd2135f6e553a9defcff Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Mon, 1 Aug 2022 18:30:46 -0400
Subject: Fix some lints

---
 Alpha.hs                 | 2 ++
 System/Random/Shuffle.hs | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

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 []
-- 
cgit v1.2.3