@@ -45,6 +45,7 @@ import qualified Http
4545import qualified Json.Decode as D
4646import qualified Parse.Module as Parse
4747import qualified Reporting
48+import qualified Reporting.Annotation as A
4849import qualified Reporting.Exit as Exit
4950import qualified Reporting.Task as Task
5051import qualified Stuff
@@ -564,10 +565,10 @@ crawlModule foreignDeps mvar pkg src name =
564565
565566
566567crawlFile :: 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 =
568569 do bytes <- File.readUtf8 path
569570 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 ->
571572 do deps <- crawlImports foreignDeps mvar pkg src imports
572573 return (Just (SLocal deps modul))
573574