github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 21:16:12 +03:00
Code Issues Projects Releases Wiki Activity

Give default definitions for &> and <&.

Browse Source
This commit is contained in:
Rob Rix 2017-04-21 11:44:23 -04:00
parent 22177b0940
commit 340a58e44e
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Control/Conjunctive.hs
View File

@ -8,5 +8,7 @@ class Alternative f => Conjunctive f where
(<&>) :: f (a -> b) -> f a -> f b
(<&) :: f a -> f b -> f a
a <& b = const <$> a <&> b
(&>) :: f a -> f b -> f b
a &> b = identity <$ a <&> b