@@ -45,6 +45,7 @@ import qualified Http
45import qualified Json.Decode as D
45import qualified Json.Decode as D
46import qualified Parse.Module as Parse
46import qualified Parse.Module as Parse
47import qualified Reporting
47import qualified Reporting
48+import qualified Reporting.Annotation as A
48import qualified Reporting.Exit as Exit
49import qualified Reporting.Exit as Exit
49import qualified Reporting.Task as Task
50import qualified Reporting.Task as Task
50import qualified Stuff
51import qualified Stuff
@@ -564,10 +565,10 @@ crawlModule foreignDeps mvar pkg src name =
566crawlFile :: Map.Map ModuleName.Raw ForeignInterface -> MVar StatusDict -> Pkg.Name -> FilePath -> ModuleName.Raw -> FilePath -> IO (Maybe Status)
567crawlFile :: Map.Map ModuleName.Raw ForeignInterface -> MVar StatusDict -> Pkg.Name -> FilePath -> ModuleName.Raw -> FilePath -> IO (Maybe Status)
567−crawlFile foreignDeps mvar pkg src name path =
568+crawlFile foreignDeps mvar pkg src expectedName path =
568 do bytes <- File.readUtf8 path
569 do bytes <- File.readUtf8 path
569 case Parse.fromByteString pkg bytes of
570 case Parse.fromByteString pkg bytes of
570− Right modul@(Src.Module (Just actualName) _ imports _ _ _ _ _) | name == actualName ->
571+ Right modul@(Src.Module (Just (A.At _ actualName)) _ imports _ _ _ _ _) | expectedName == actualName ->
571 do deps <- crawlImports foreignDeps mvar pkg src imports
572 do deps <- crawlImports foreignDeps mvar pkg src imports
572 return (Just (SLocal deps modul))
573 return (Just (SLocal deps modul))