Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Due to inactivity, this project is scheduled to be deleted on 2035-04-24.
Why is this scheduled?
Open sidebar
Marc Coiffier
BHR
Commits
450f6388
Commit
450f6388
authored
May 02, 2019
by
Marc Coiffier
Browse files
Successful build (on Thu May 2 01:48:51 CEST 2019)
parent
74760859
Changes
1
Hide whitespace changes
Inline
Side-by-side
capricon/src/Data/CaPriCon.hs
View file @
450f6388
...
...
@@ -565,7 +565,7 @@ type_of = yb maybeT . go
rec_subst
(
y
:
t
)
(
Bind
Prod
_
tx
e
)
=
do
ty
<-
go
y
(
_
,
dx
)
<-
return
(
convertDelta
ty
tx
)
^.
maybeT
(
dx
,
_
)
<-
return
(
convertDelta
ty
tx
)
^.
maybeT
guard
(
dx
<=
0
)
rec_subst
t
(
subst
y
e
)
rec_subst
[]
x
=
return
x
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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