Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
haskell
fcf-composite
Commits
11c1a63d
Commit
11c1a63d
authored
3 years ago
by
Daniel Firth
Browse files
Options
Download
Email Patches
Plain Diff
Use type families in tests
parent
56cae166
master
No related merge requests found
Pipeline
#615
passed with stages
in 43 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
11 additions
and
6 deletions
+11
-6
test/Spec.hs
test/Spec.hs
+11
-6
No files found.
test/Spec.hs
View file @
11c1a63d
...
...
@@ -20,6 +20,7 @@ import Composite.TH
import
Data.Functor.Contravariant
import
Data.Functor.Identity
import
Data.Vinyl
import
Fcf
import
Test.Tasty
import
Test.Tasty.HUnit
...
...
@@ -34,17 +35,21 @@ withLensesAndProxies
type D = "d" :-> (String, Int)
|]
type
RecA
=
Record
'
[
A
,
B
,
C
]
type
X
=
'
[
A
,
B
,
C
]
type
RecB
=
Record
'
[
B
,
C
,
D
]
type
Y
=
'
[
B
,
C
,
D
]
type
Rec
DiffAB
=
Record
'
[
A
]
type
Rec
A
=
Record
X
type
Rec
DiffBA
=
Record
'
[
D
]
type
Rec
B
=
Record
Y
type
Rec
Union
AB
=
Record
'
[
A
,
B
,
C
,
D
]
type
Rec
Diff
AB
=
Record
(
Eval
(
Difference
X
Y
))
type
RecIntersectionAB
=
Record
'
[
B
,
C
]
type
RecDiffBA
=
Record
(
Eval
(
Difference
Y
X
))
type
RecUnionAB
=
Record
(
Eval
(
Union
Y
X
))
type
RecIntersectionAB
=
Record
(
Eval
(
Intersection
X
Y
))
recA
::
RecA
recA
=
"foo"
:*:
5
:*:
()
:*:
RNil
...
...
This diff is collapsed.
Click to expand it.
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
Menu
Projects
Groups
Snippets
Help