Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
curry
curry-frontend
Commits
015e613c
Commit
015e613c
authored
Feb 23, 2015
by
Jan Rasmus Tikovsky
Browse files
Minor bugfix
parent
df4a5e21
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/Base/Typing.hs
View file @
015e613c
...
...
@@ -365,6 +365,7 @@ varType v tyEnv = case lookupValue v tyEnv of
funType
::
QualIdent
->
ValueEnv
->
TypeScheme
funType
f
tyEnv
=
case
qualLookupValue
f
tyEnv
of
[
Value
_
_
sigma
]
->
sigma
[
Label
_
_
sigma
]
->
sigma
_
->
internalError
$
"Base.Typing.funType: "
++
show
f
labelType
::
QualIdent
->
ValueEnv
->
TypeScheme
...
...
Write
Preview
Supports
Markdown
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