Skip to content
Snippets Groups Projects

Add support for higher-rank polymorphism

Merged Jan-Hendrik Matthes requested to merge higher-rank-polymorphism into master
1 file
+ 1
1
Compare changes
  • Side-by-side
  • Inline
@@ -510,7 +510,7 @@ valueDecl = spanPosition <**> decl
defaultDecl :: Parser a Token (Decl ())
defaultDecl = mkDefaultDecl <$> tokenSpan KW_default
<*> parensSp (arrowType `sepBySp` comma)
<*> parensSp (type0 `sepBySp` comma)
where mkDefaultDecl sp1 ((ty, ss), sp2, sp3) = updateEndPos $
DefaultDecl (SpanInfo sp1 (sp1 : sp2 : (ss ++ [sp3]))) ty
Loading