@@ -158,8 +158,8 @@ getExposed (Details.Details _ validOutline _ _ _) =
158 Details.ValidApp _ ->
158 Details.ValidApp _ ->
159 Task.throw Exit.MakeAppNeedsFileNames
159 Task.throw Exit.MakeAppNeedsFileNames
161− Details.ValidPkg (Outline.PkgOutline _ _ _ _ exposed _ _ _) _ ->
161+ Details.ValidPkg _ exposed ->
162− case Outline.flattenExposed exposed of
162+ case exposed of
163 [] -> Task.throw Exit.MakePkgNeedsExposing
163 [] -> Task.throw Exit.MakePkgNeedsExposing
164 m:ms -> return (NE.List m ms)
164 m:ms -> return (NE.List m ms)