@@ -68,10 +68,10 @@ data Env =
68makeEnv :: Reporting.BKey -> FilePath -> Details.Details -> Env
68makeEnv :: Reporting.BKey -> FilePath -> Details.Details -> Env
69makeEnv key root (Details.Details _ validOutline locals foreigns _) =
69makeEnv key root (Details.Details _ validOutline locals foreigns _) =
70 case validOutline of
70 case validOutline of
71− Details.ValidApp (Outline.AppOutline _ srcDirs _ _ _ _) ->
71+ Details.ValidApp srcDirs ->
72 Env key root Pkg.dummyName (NE.toList srcDirs) locals foreigns
72 Env key root Pkg.dummyName (NE.toList srcDirs) locals foreigns
74− Details.ValidPkg (Outline.PkgOutline pkg _ _ _ _ _ _ _) _ ->
74+ Details.ValidPkg pkg _ ->
75 Env key root pkg ["src"] locals foreigns
75 Env key root pkg ["src"] locals foreigns
@@ -285,7 +285,7 @@ crawlFile env@(Env _ root pkg _ _ _) mvar expectedName path =
286isMain :: A.Located Src.Value -> Bool
286isMain :: A.Located Src.Value -> Bool
287isMain (A.At _ (Src.Value (A.At _ name) _ _ _)) =
287isMain (A.At _ (Src.Value (A.At _ name) _ _ _)) =
288− name == Name.main
288+ name == Name._main