Fix for GHC 9

circuithub · Mar 20, 2022 · ddac243 · ddac243
1 parent efaeed3
commit ddac243
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/src/Main.hs b/src/Main.hs
@@ -813,7 +813,7 @@ parsePackageDumpPackage = do
     skipSomeTill
       (try skipLine)
       ( asum
-          [ (,True) <$> try parseExposedModules
+          [ (,True) <$> parseExposedModules
           , ([], False) <$ try packageEnd
           ]
       )
@@ -838,15 +838,18 @@ parsePackageDumpPackage = do
       string "exposed-modules:"
         >> (void eol <|> pure ())
         >> some
-             ( try
-                $ skipSome nonEolSpaceChar
-                >> sepBy1 parseModuleName nonEolSpaceChar
+             ( skipSome nonEolSpaceChar
+                >> sepBy1 (parseModuleName <* optional from <* optional ",") nonEolSpaceChar
                 <* eol
              )
              <&> concat
 
     packageEnd = try (string "---" >> (void eol <|> eof)) <|> eof
 
+    from = do
+      _ <- " from " 
+      some $ choice [ alphaNumChar, char '-', char ':', char '.' ]
+
 nonEolSpaceChar :: Parser ()
 nonEolSpaceChar =
   void $ notFollowedBy eol >> (spaceChar <|> char '\t')