shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Fix parsing bug.

--- a/src/MicroHs/Exp.hs

+++ b/src/MicroHs/Exp.hs

@@ -15,7 +15,7 @@

 import Data.Char

 import Data.List

 import MicroHs.Ident

-import MicroHs.Expr --X(Lit(..), showLit, eqLit, forceLit)

+import MicroHs.Expr(Lit(..), showLit, eqLit, forceLit)

 --Ximport Compat

 --import Debug.Trace

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

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

@@ -247,7 +247,7 @@

   let

     pQua = (True <$ pKeyword "qualified") <|< pure False

   in  ImportSpec <$> pQua <*> pUQIdentA <*> eoptional (pKeyword "as" *> pUQIdent) <*>

-                     eoptional (pair <$> ((True <$ pKeyword "hiding") <|> pure False) <*> pParens (emany pImportItem))

+        eoptional (pair <$> ((True <$ pKeyword "hiding") <|> pure False) <*> pParens (esepEndBy pImportItem (pSpec ',')))

 pImportItem :: P ImportItem

 pImportItem =

-- 

⑨