From 3817d2c9dae3d4669e86907ae839e86e781a6dbe Mon Sep 17 00:00:00 2001 From: William Rusnack Date: Tue, 30 Apr 2024 09:42:49 -0400 Subject: [PATCH] defined <&> for old versions of base --- benchmarks/haskell/Benchmarks/FileWrite.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/benchmarks/haskell/Benchmarks/FileWrite.hs b/benchmarks/haskell/Benchmarks/FileWrite.hs index b3948a5b..c08c759d 100644 --- 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