Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
C
clean-platform
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
17
Issues
17
List
Boards
Labels
Service Desk
Milestones
Merge Requests
3
Merge Requests
3
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
clean-and-itasks
clean-platform
Commits
89b34b8e
Commit
89b34b8e
authored
Jan 16, 2018
by
Mart Lubbers
Browse files
Options
Browse Files
Download
Plain Diff
Merge branch 'master' of gitlab.science.ru.nl:clean-and-itasks/clean-platform
parents
de790860
12222a0c
Pipeline
#8946
passed with stage
in 1 minute and 50 seconds
Changes
2
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
6 additions
and
6 deletions
+6
-6
src/libraries/OS-Independent/Data/Tuple.dcl
src/libraries/OS-Independent/Data/Tuple.dcl
+3
-3
src/libraries/OS-Independent/Data/Tuple.icl
src/libraries/OS-Independent/Data/Tuple.icl
+3
-3
No files found.
src/libraries/OS-Independent/Data/Tuple.dcl
View file @
89b34b8e
...
...
@@ -6,8 +6,8 @@ from Data.Foldable import class Foldable
from
Data
.
Traversable
import
class
Traversable
from
Data
.
Bifunctor
import
class
Bifunctor
tuple
::
a
b
->
(
a
,
b
)
tuple3
::
a
b
c
->
(
a
,
b
,
c
)
tuple
::
.
a
.
b
->
.(.
a
,.
b
)
tuple3
::
.
a
.
b
.
c
->
.(.
a
,.
b
,.
c
)
appFst
::
(.
a
->
.
c
)
!(.
a
,.
b
)
->
(.
c
,.
b
)
appSnd
::
(.
b
->
.
c
)
!(.
a
,.
b
)
->
(.
a
,.
c
)
...
...
@@ -16,7 +16,7 @@ appFst3 :: (.a -> .d) !(.a,.b,.c) -> (.d,.b,.c)
appSnd3
::
(.
b
->
.
d
)
!(.
a
,.
b
,.
c
)
->
(.
a
,.
d
,.
c
)
appThd3
::
(.
c
->
.
d
)
!(.
a
,.
b
,.
c
)
->
(.
a
,.
b
,.
d
)
swap
::
!
(
a
,
b
)
->
(
b
,
a
)
swap
::
!
.(.
a
,
.
b
)
->
.(.
b
,
.
a
)
instance
Functor
((,)
a
)
...
...
src/libraries/OS-Independent/Data/Tuple.icl
View file @
89b34b8e
...
...
@@ -10,10 +10,10 @@ import Data.Foldable
import
Data
.
Traversable
import
Control
.
Applicative
tuple
::
a
b
->
(
a
,
b
)
tuple
::
.
a
.
b
->
.(.
a
,.
b
)
tuple
a
b
=
(
a
,
b
)
tuple3
::
a
b
c
->
(
a
,
b
,
c
)
tuple3
::
.
a
.
b
.
c
->
.(.
a
,.
b
,.
c
)
tuple3
a
b
c
=
(
a
,
b
,
c
)
appFst
::
(.
a
->
.
c
)
!(.
a
,.
b
)
->
(.
c
,.
b
)
...
...
@@ -31,7 +31,7 @@ appSnd3 f (a,b,c) = (a,f b,c)
appThd3
::
(.
c
->
.
d
)
!(.
a
,.
b
,.
c
)
->
(.
a
,.
b
,.
d
)
appThd3
f
(
a
,
b
,
c
)
=
(
a
,
b
,
f
c
)
swap
::
!
(
a
,
b
)
->
(
b
,
a
)
swap
::
!
.(.
a
,
.
b
)
->
.(.
b
,
.
a
)
swap
(
a
,
b
)
=
(
b
,
a
)
instance
Functor
((,)
a
)
...
...
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