summaryrefslogtreecommitdiff
path: root/Alpha.hs
diff options
context:
space:
mode:
authorBen Sima <ben@bsima.me>2020-12-24 14:24:16 -0500
committerBen Sima <ben@bsima.me>2020-12-24 14:24:16 -0500
commit6eaaf3d8ce6025932990de6fa697d14c9651be76 (patch)
tree65ca4a0dd0393db98d9a6067bbbef789469e8122 /Alpha.hs
parent6a4a8aa37044d578c95dea145b9605908b8dc28d (diff)
linting fixes and cleanup
Diffstat (limited to 'Alpha.hs')
-rw-r--r--Alpha.hs4
1 files changed, 2 insertions, 2 deletions
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