shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Parse fundeps correctly

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

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

@@ -269,7 +269,7 @@

     dig _ = Nothing

     pPrec = satisfyM "digit" dig

-    pFunDeps = (pSpec '|' *> esome pFunDep) <|< pure []

+    pFunDeps = (pSymbol "|" *> esepBy1 pFunDep (pSpec ',')) <|< pure []

     pFunDep = (,) <$> esome pLIdent <*> (pSymbol "->" *> esome pLIdent)

     pField = do

       fs <- pFields

-- 

⑨