Fix for GHC 9

Author: ocharles

src/Main.hs

@@ -792,7 +792,8 @@ getPackageModulesFromGhcDump = do
               ("error parsing ghc package dump: " ++ errorBundlePretty e)
               >> pure MonoidalMap.empty
 
-          Right x ->
+          Right x -> do
+            print x
             pure x
 
 parsePackageDump :: Parser (MonoidalMap ModuleName (NESet PackageSource))
@@ -813,7 +814,7 @@ parsePackageDumpPackage = do
     skipSomeTill
       (try skipLine)
       ( asum
-          [ (,True) <$> try parseExposedModules
+          [ (,True) <$> parseExposedModules
           , ([], False) <$ try packageEnd
           ]
       )
@@ -838,15 +839,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')