semigroupoids 3.0.3 → 3.1
raw patch · 3 files changed
+17/−2 lines, 3 files
Files
- .gitignore +12/−1
- semigroupoids.cabal +1/−1
- src/Data/Semigroupoid.hs +4/−0
.gitignore view
@@ -1,2 +1,13 @@-_darcs dist+docs+wiki+TAGS+tags+wip+.DS_Store+.*.swp+.*.swo+*.o+*.hi+*~+*#
semigroupoids.cabal view
@@ -1,6 +1,6 @@ name: semigroupoids category: Control, Comonads-version: 3.0.3+version: 3.1 license: BSD3 cabal-version: >= 1.6 license-file: LICENSE
src/Data/Semigroupoid.hs view
@@ -43,6 +43,10 @@ instance Semigroupoid (->) where o = (.) +-- | <http://en.wikipedia.org/wiki/Band_(mathematics)#Rectangular_bands>+instance Semigroupoid (,) where+ o (_,k) (i,_) = (i,k)+ instance Bind m => Semigroupoid (Kleisli m) where Kleisli g `o` Kleisli f = Kleisli $ \a -> f a >>- g