composition-prelude 1.5.0.1 → 1.5.0.2
raw patch · 2 files changed
+3/−42 lines, 2 filesdep ~base
Dependency ranges changed: base
Files
composition-prelude.cabal view
@@ -1,6 +1,6 @@ cabal-version: 1.18 name: composition-prelude-version: 1.5.0.1+version: 1.5.0.2 license: BSD3 license-file: LICENSE copyright: Copyright: (c) 2017-2018 Vanessa McHale
src/Control/Composition.cpphs view
@@ -33,22 +33,11 @@ import Control.Monad #if MIN_VERSION_base(4,8,0) import Data.Function (fix, on, (&))-#elif defined(MIN_VERSION_lens)-#if MIN_VERSION_lens(4,0)-import Control.Lens ((&))-#elif defined(MIN_VERSION_microlens)-import Lens.Mico ((&)) #endif #else import Data.Function (fix, on) #endif-#if defined(MIN_VERSION_lens)-#if MIN_VERSION_lens(3,0)-import Control.Lens ((<&>)) #endif-#elif defined(MIN_VERSION_microlens)-#if MIN_VERSION_microlens(0,4,5)-import Lens.Micro ((<&>)) #endif #endif @@ -61,34 +50,16 @@ infixr 8 -.*** infixr 8 -.**** infixl 8 -$-#if !(MIN_VERSION_base(4,8,0)) && !defined(MIN_VERSION_lens) && !defined(MIN_VERSION_microlens)-infixl 1 &-#elif defined(MIN_VERSION_lens)-#if !(MIN_VERSION_lens(4,0))+#if !(MIN_VERSION_base(4,8,0)) infixl 1 & #endif-#endif-#if defined(MIN_VERSION_lens)-#if !MIN_VERSION_lens(3,0) infixl 1 <&>-#endif-#elif defined(MIN_VERSION_microlens)-#if !MIN_VERSION_microlens(0,4,5) infixl 1 <&>-#endif-#else-infixl 1 <&>-#endif -#if !(MIN_VERSION_base(4,8,0)) && !defined(MIN_VERSION_lens) && !defined(MIN_VERSION_microlens)-(&) :: a -> (a -> b) -> b-(&) x f = f x-#elif defined(MIN_VERSION_lens)-#if !(MIN_VERSION_lens(4,0))+#if !(MIN_VERSION_base(4,8,0)) (&) :: a -> (a -> b) -> b (&) x f = f x #endif-#endif #if !MIN_VERSION_base(4,8,0) axe :: (Monad m) => [a -> m ()] -> a -> m ()@@ -151,18 +122,8 @@ (-.) :: (a -> b) -> (b -> c) -> a -> c (-.) f g x = g (f x) -#if defined(MIN_VERSION_lens)-#if !MIN_VERSION_lens(3,0) (<&>) :: Functor f => f a -> (a -> b) -> f b x <&> f = fmap f x-#endif-#elif defined(MIN_VERSION_microlens)-#if !MIN_VERSION_microlens(0,4,5)-#endif-#else-(<&>) :: Functor f => f a -> (a -> b) -> f b-x <&> f = fmap f x-#endif {-# RULES "thread" forall f g. thread [f, g] = f . g