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 --- Alpha.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'Alpha.hs') 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 -- cgit v1.2.3