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
4181d6f0
Commit
4181d6f0
authored
Feb 23, 2015
by
Jan Rasmus Tikovsky
Browse files
Another small bugfix
parent
015e613c
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/Base/Typing.hs
View file @
4181d6f0
...
...
@@ -360,6 +360,7 @@ constrType c tyEnv = case qualLookupValue c tyEnv of
varType
::
Ident
->
ValueEnv
->
TypeScheme
varType
v
tyEnv
=
case
lookupValue
v
tyEnv
of
[
Value
_
_
sigma
]
->
sigma
[
Label
_
_
sigma
]
->
sigma
_
->
internalError
$
"Base.Typing.varType: "
++
show
v
funType
::
QualIdent
->
ValueEnv
->
TypeScheme
...
...
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