on master help sign in
update Make to use new Details format (with less information)
1007086Evan Czaplicki
terminal/src/Make.hs+2−2
@@ -158,8 +158,8 @@ getExposed (Details.Details _ validOutline _ _ _) =
158 Details.ValidApp _ ->
158 Details.ValidApp _ ->
159 Task.throw Exit.MakeAppNeedsFileNames
159 Task.throw Exit.MakeAppNeedsFileNames
160
160
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)
165
165