@@ -595,7 +595,7 @@ crawlModule foreignDeps mvar pkg src docsStatus name =
595crawlFile :: Map.Map ModuleName.Raw ForeignInterface -> MVar StatusDict -> Pkg.Name -> FilePath -> DocsStatus -> ModuleName.Raw -> FilePath -> IO (Maybe Status)
595crawlFile :: Map.Map ModuleName.Raw ForeignInterface -> MVar StatusDict -> Pkg.Name -> FilePath -> DocsStatus -> ModuleName.Raw -> FilePath -> IO (Maybe Status)
596crawlFile foreignDeps mvar pkg src docsStatus expectedName path =
596crawlFile foreignDeps mvar pkg src docsStatus expectedName path =
597 do bytes <- File.readUtf8 path
597 do bytes <- File.readUtf8 path
598− case Parse.fromByteString pkg bytes of
598+ case Parse.fromByteString (Parse.Package pkg) bytes of
599 Right modul@(Src.Module (Just (A.At _ actualName)) _ _ imports _ _ _ _ _) | expectedName == actualName ->
599 Right modul@(Src.Module (Just (A.At _ actualName)) _ _ imports _ _ _ _ _) | expectedName == actualName ->
600 do deps <- crawlImports foreignDeps mvar pkg src imports
600 do deps <- crawlImports foreignDeps mvar pkg src imports
601 return (Just (SLocal docsStatus deps modul))
601 return (Just (SLocal docsStatus deps modul))