defined <&> for old versions of base

haskell · Apr 30, 2024 · 3817d2c · 3817d2c
1 parent 067b43d
commit 3817d2c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/benchmarks/haskell/Benchmarks/FileWrite.hs b/benchmarks/haskell/Benchmarks/FileWrite.hs
@@ -13,7 +13,6 @@ module Benchmarks.FileWrite
 
 import Control.DeepSeq (NFData, deepseq)
 import Data.Bifunctor (first)
-import Data.Functor ((<&>))
 import Data.String (fromString)
 import Data.Text (StrictText)
 import Data.Text.Lazy (LazyText)
@@ -69,3 +68,6 @@ mkFileWriteBenchmarks mkSinkNRemove = do
   where
   strict = fst
   lazy = snd
+
+(<&>) :: Functor f => f a -> (a -> b) -> f b
+(<&>) = flip fmap