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 / Register
Toggle navigation
Open sidebar
curry
curry-frontend
Commits
e6345d85
Commit
e6345d85
authored
Apr 04, 2019
by
Kai-Oliver Prott
1
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix Type-Check for instance declarations with ambiguous funtion names
parent
6703ea08
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
1 deletion
+5
-1
src/Checks/TypeCheck.hs
src/Checks/TypeCheck.hs
+5
-1
No files found.
src/Checks/TypeCheck.hs
View file @
e6345d85
...
...
@@ -869,7 +869,11 @@ tcTopPDecl (i, ClassDecl p cx cls tv ds) = withLocalSigEnv $ do
tcTopPDecl
(
i
,
InstanceDecl
p
cx
qcls
ty
ds
)
=
do
tcEnv
<-
getTyConsEnv
pty
<-
expandPoly
$
QualTypeExpr
NoSpanInfo
cx
ty
vpds'
<-
mapM
(
tcInstanceMethodPDecl
qcls
pty
)
vpds
mid
<-
getModuleIdent
let
origCls
=
getOrigName
mid
qcls
tcEnv
clsQual
=
head
$
filter
isQualified
$
reverseLookupByOrigName
origCls
tcEnv
qQualCls
=
qualQualify
(
fromJust
$
qidModule
clsQual
)
qcls
vpds'
<-
mapM
(
tcInstanceMethodPDecl
qQualCls
pty
)
vpds
return
(
i
,
InstanceDecl
p
cx
qcls
ty
$
fromPDecls
$
map
untyped
opds
++
vpds'
)
where
(
vpds
,
opds
)
=
partition
(
isValueDecl
.
snd
)
$
toPDecls
ds
tcTopPDecl
_
=
internalError
"Checks.TypeCheck.tcTopDecl"
...
...
Kai Prott
@kaiprott
·
May 16, 2019
Developer
@fte
@fte
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