shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Fix context parsing error.

--- a/src/MicroHs/Parse.hs

+++ b/src/MicroHs/Parse.hs

@@ -388,7 +388,7 @@

 pContext :: P [EConstraint]

 pContext = (pCtx <* pDRArrow) <|< pure []

   where

-    pCtx = pParens (emany pType) <|< ((:[]) <$> pTypeApp)

+    pCtx = pParens (esepBy pType (pSpec ',')) <|< ((:[]) <$> pTypeApp)

 pDRArrow :: P ()

 pDRArrow = pSymbol "=>" <|< pSymbol "\x21d2"