packages feed

composition-prelude 0.1.1.0 → 0.1.1.1

raw patch · 3 files changed

+16/−15 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

+ Control.Composition: (-.**) :: (c -> d) -> (a -> b -> d -> e) -> a -> b -> c -> e
+ Control.Composition: infixr 3 ***
- Control.Composition: (&&&) :: Arrow a => forall b c c'. a b c -> a b c' -> a b (c, c')
+ Control.Composition: (&&&) :: Arrow a => forall b c c'. () => a b c -> a b c' -> a b (c, c')
- Control.Composition: (&) :: a -> (a -> b) -> b
+ Control.Composition: (&) :: () => a -> (a -> b) -> b
- Control.Composition: (***) :: Arrow a => forall b c b' c'. a b c -> a b' c' -> a (b, b') (c, c')
+ Control.Composition: (***) :: Arrow a => forall b c b' c'. () => a b c -> a b' c' -> a (b, b') (c, c')
- Control.Composition: fix :: (a -> a) -> a
+ Control.Composition: fix :: () => (a -> a) -> a
- Control.Composition: infixr 8 -.*
+ Control.Composition: infixr 8 -.**
- Control.Composition: join :: Monad m => m (m a) -> m a
+ Control.Composition: join :: Monad m => m m a -> m a
- Control.Composition: on :: (b -> b -> c) -> (a -> b) -> a -> a -> c
+ Control.Composition: on :: () => (b -> b -> c) -> (a -> b) -> a -> a -> c

Files

composition-prelude.cabal view
@@ -1,5 +1,5 @@ name:                composition-prelude-version:             0.1.1.0+version:             0.1.1.1 synopsis:            Higher-order function combinators description:         Replacement for `composition` or `composition-exta`, exporting everything in one sane module. homepage:            https://github.com/vmchale/composition-prelude#readme
src/Control/Composition.hs view
@@ -1,26 +1,27 @@ {-# LANGUAGE CPP #-}  module Control.Composition-    ( -- | Postcomposition+    ( -- * Postcomposition       (.*)     , (.**)     , (.***)-    -- | Precomposition+    -- * Precomposition     , (-.)     , (-.*)-    -- | Fancy function application+    , (-.**)+    -- * Fancy function application     , (-$)-    -- | Tuple helpers+    -- * Tuple helpers     , both-    -- | Reexports from Control.Arrow+    -- * Reexports from Control.Arrow     , (&&&)     , (***)-    -- | Reexports from Control.Monad+    -- * Reexports from Control.Monad     , join     , (=<<)     , (>=>)     , (<=<)-    -- | Reexports from base+    -- * Reexports from base     , (&)     , fix     , on@@ -40,7 +41,10 @@ #endif  infixr 8 .*+infixr 8 .**+infixr 8 .*** infixr 8 -.*+infixr 8 -.** infixl 8 -$ #if __GLASGOW_HASKELL__ <= 784 infixl 1 &@@ -49,12 +53,6 @@ (&) x f = f x #endif -{-fish' :: (a -> c -> b) -> (b -> c -> c) -> a -> c -> c-fish' f g x y = g (f x y) y--fish :: (a -> c -> b) -> (b -> c -> c) -> (a -> c -> c)-fish = (>=>)-}- both :: (a -> b) -> (a, a) -> (b, b) both = join (***) @@ -77,6 +75,9 @@ -- | The Oedipus combinator (-.*) :: (b -> c) -> (a -> c -> d) -> a -> b -> d (-.*) f g x y = g x (f y)++(-.**) :: (c -> d) -> (a -> b -> d -> e) -> a -> b -> c -> e+(-.**) f g x y z = g x y (f z)  -- | Backwards function composition (-.) :: (a -> b) -> (b -> c) -> a -> c
stack.yaml view
@@ -1,4 +1,4 @@-resolver: lts-9.0+resolver: lts-9.10 packages: - '.' extra-deps: []