@@ -68,10 +68,10 @@ data Env =
6868makeEnv :: Reporting.BKey -> FilePath -> Details.Details -> Env
6969makeEnv key root (Details.Details _ validOutline locals foreigns _) =
7070 case validOutline of
71− Details.ValidApp (Outline.AppOutline _ srcDirs _ _ _ _) ->
71+ Details.ValidApp srcDirs ->
7272 Env key root Pkg.dummyName (NE.toList srcDirs) locals foreigns
7373
74− Details.ValidPkg (Outline.PkgOutline pkg _ _ _ _ _ _ _) _ ->
74+ Details.ValidPkg pkg _ ->
7575 Env key root pkg ["src"] locals foreigns
7676
7777
@@ -285,7 +285,7 @@ crawlFile env@(Env _ root pkg _ _ _) mvar expectedName path =
285285
286286isMain :: A.Located Src.Value -> Bool
287287isMain (A.At _ (Src.Value (A.At _ name) _ _ _)) =
288− name == Name.main
288+ name == Name._main
289289
290290
291291