Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
haskell-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
145
Issues
145
List
Board
Labels
Milestones
Merge Requests
6
Merge Requests
6
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gargantext
haskell-gargantext
Commits
e5c82dc6
Commit
e5c82dc6
authored
Apr 25, 2018
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[|> or <|] using F# and elm conventions, thx @yann.
parent
817f7a43
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
4 deletions
+4
-4
Prelude.hs
src/Gargantext/Prelude.hs
+4
-4
No files found.
src/Gargantext/Prelude.hs
View file @
e5c82dc6
...
...
@@ -246,13 +246,13 @@ unMaybe = map fromJust . L.filter isJust
-- | (~>) is called : "rightLeft" as "from right to left". The most right
-- function sends its output to the most left function which takes it as
-- input.
(
<
~
)
::
(
a
->
b
)
->
a
->
b
(
<
~
)
=
(
$
)
(
<
|
)
::
(
a
->
b
)
->
a
->
b
(
<
|
)
=
(
$
)
-- | (<~) is called : "leftRight" as "from left to right". The most left
-- function sends its output to the most right function which takes it as
-- input.
(
~
>
)
::
a
->
(
a
->
c
)
->
c
(
~
>
)
=
flip
(
$
)
(
|
>
)
::
a
->
(
a
->
c
)
->
c
(
|
>
)
=
flip
(
$
)
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment