shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Allow empty constructor list.

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

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

@@ -448,7 +448,7 @@

 pConList :: P (Maybe [Ident])

 pConList =

       (Nothing <$ pSymbol "..")

-  <|< (Just <$> esepBy1 (pQIdent <|< pParens pSymOper) (pSpec ','))

+  <|< (Just <$> esepBy (pQIdent <|< pParens pSymOper) (pSpec ','))

 --------

 -- Types