From 6eaaf3d8ce6025932990de6fa697d14c9651be76 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Thu, 24 Dec 2020 14:24:16 -0500 Subject: linting fixes and cleanup --- Alpha.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Alpha.hs') diff --git a/Alpha.hs b/Alpha.hs index 66bdb43..113c85a 100644 --- a/Alpha.hs +++ b/Alpha.hs @@ -64,7 +64,7 @@ import Data.String import Data.Text (Text) import qualified Data.Text as Text import qualified Data.Text.Lazy as LazyText -import Protolude as X hiding (($), (&)) +import Protolude as X hiding (($), (&), (.)) -- | Debugging printf say :: Text -> IO () @@ -112,7 +112,7 @@ f |> g = g f -- | Alias for <&>. Can be read as "and then". Basically does into a -- functor, does some computation, then returns the same kind of --- functor. Could also be defined as `f >>= return . g` +-- functor. Could also be defined as `f >>= return <. g` (/>) :: Functor f => f a -> (a -> b) -> f b f /> g = fmap g f -- cgit v1.2.3