Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
clean-and-itasks
clean-test-properties
Commits
b91ccf0d
Commit
b91ccf0d
authored
Oct 25, 2019
by
Mart Lubbers
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
fix TypeContext changes in Platform
parent
c19e946c
Pipeline
#32019
passed with stage
in 4 minutes and 49 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
4 deletions
+4
-4
src/testproperties.icl
src/testproperties.icl
+4
-4
No files found.
src/testproperties.icl
View file @
b91ccf0d
...
...
@@ -33,7 +33,7 @@ import Clean.Doc
import
Clean
.
Parse
import
Clean
.
Parse
.
Comments
from
Clean
.
Types
import
::
Type
(
Func
,
Type
),
::
TypeContext
,
::
TypeRestriction
,
::
TypeVar
,
::
TVAssignment
,
::
TypeVar
,
::
TVAssignment
,
::
TypeContext
(
TypeContext
),
allVars
from
Clean
.
Types
.
Util
import
instance
toString
Type
,
instance
==
Type
,
assign
,
assignAll
...
...
@@ -349,13 +349,13 @@ where
where
invariant
::
Property
->
String
invariant
(
ForAll
name
args
impl
)
=
name
+++
" :: "
<+
Func
(
map
noContext
argtypes
)
(
Type
"Property"
[])
(
concatMap
context
argtypes
)
<+
"
\n
"
+++
name
+++
" :: "
<+
Func
(
map
noContext
argtypes
)
(
Type
"Property"
[])
(
TypeContext
(
concatMap
context
argtypes
)
)
<+
"
\n
"
+++
name
+++
concat
[
" "
+++
a
\\
(
a
,_)
<-
args
]
+++
" =
\n\t
"
+++
replaceSubString
"
\n
"
"
\n\t
"
impl
where
noContext
(
Func
[]
t
_)
=
t
noContext
t
=
t
context
(
Func
[]
_
c
)
=
c
context
(
Func
[]
_
(
TypeContext
c
)
)
=
c
context
_
=
[]
argtypes
=
map
snd
args
...
...
@@ -437,7 +437,7 @@ where
tname
=
fname
+++
"_"
+++
name``
name``
=
fixname
name`
name`
=
if
(
i
==
1
)
name
(
name
+++
"_"
+++
toString
i
)
type`
=
fromJust
$
assignAll
vis
$
Func
(
map
snd
ts
)
(
Type
"Property"
[])
[]
type`
=
fromJust
$
assignAll
vis
$
Func
(
map
snd
ts
)
(
Type
"Property"
[])
(
TypeContext
[]
)
gas
=
map
resolveGenerators
ts
where
...
...
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