Commit e5c82dc6 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[|> or <|] using F# and elm conventions, thx @yann.

parent 817f7a43
...@@ -246,13 +246,13 @@ unMaybe = map fromJust . L.filter isJust ...@@ -246,13 +246,13 @@ unMaybe = map fromJust . L.filter isJust
-- | (~>) is called : "rightLeft" as "from right to left". The most right -- | (~>) is called : "rightLeft" as "from right to left". The most right
-- function sends its output to the most left function which takes it as -- function sends its output to the most left function which takes it as
-- input. -- input.
(<~) :: (a -> b) -> a -> b (<|) :: (a -> b) -> a -> b
(<~) = ($) (<|) = ($)
-- | (<~) is called : "leftRight" as "from left to right". The most left -- | (<~) is called : "leftRight" as "from left to right". The most left
-- function sends its output to the most right function which takes it as -- function sends its output to the most right function which takes it as
-- input. -- input.
(~>) :: a -> (a -> c) -> c (|>) :: a -> (a -> c) -> c
(~>) = flip ($) (|>) = flip ($)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment