@@ -42,11 +42,11 @@ run pkg =
4242 ( \ oldOutline ->
4343 case oldOutline of
4444 Outline . App outline ->
45- makeAppPlan env pkg outline
45+ makeAppPlan root env pkg outline
4646 |> Task . bind ( \ changes -> attemptChanges root env oldOutline V . toChars changes)
4747
4848 Outline . Pkg outline ->
49- makePkgPlan env pkg outline
49+ makePkgPlan root env pkg outline
5050 |> Task . bind ( \ changes -> attemptChanges root env oldOutline C . toChars changes)
5151 )
5252 )
@@ -107,8 +107,8 @@ attemptChangesHelp root env oldOutline newOutline =
107107-- MAKE APP PLAN
108108
109109
110- makeAppPlan : Solver .Env -> Pkg .Name -> Outline .AppOutline -> Task Exit .Install (Changes V .Version )
111- makeAppPlan ( Solver . Env cache _ connection registry) pkg outline =
110+ makeAppPlan : Stuff . Root -> Solver .Env -> Pkg .Name -> Outline .AppOutline -> Task Exit .Install (Changes V .Version )
111+ makeAppPlan root ( Solver . Env cache _ connection registry) pkg outline =
112112 case outline of
113113 Outline . GuidaAppOutline guidaVersion sourceDirs direct indirect testDirect testIndirect ->
114114 if Dict . member identity pkg direct then
@@ -162,10 +162,10 @@ makeAppPlan (Solver.Env cache _ connection registry) pkg outline =
162162 Err suggestions ->
163163 case connection of
164164 Solver . Online _ ->
165- Task . throw ( Exit . InstallUnknownPackageOnline pkg suggestions)
165+ Task . throw ( Exit . InstallUnknownPackageOnline ( Stuff . rootPath root ) pkg suggestions)
166166
167167 Solver . Offline ->
168- Task . throw ( Exit . InstallUnknownPackageOffline pkg suggestions)
168+ Task . throw ( Exit . InstallUnknownPackageOffline ( Stuff . rootPath root ) pkg suggestions)
169169
170170 Ok _ ->
171171 Task . io ( Solver . addToApp cache connection registry pkg outline False )
@@ -176,10 +176,10 @@ makeAppPlan (Solver.Env cache _ connection registry) pkg outline =
176176 Task . pure ( Changes ( Outline . App app))
177177
178178 Solver . NoSolution ->
179- Task . throw ( Exit . InstallNoOnlineAppSolution pkg)
179+ Task . throw ( Exit . InstallGuidaNoOnlineAppSolution pkg)
180180
181181 Solver . NoOfflineSolution ->
182- Task . throw ( Exit . InstallNoOfflineAppSolution pkg)
182+ Task . throw ( Exit . InstallGuidaNoOfflineAppSolution ( Stuff . rootPath root ) pkg)
183183
184184 Solver . SolverErr exit ->
185185 Task . throw ( Exit . InstallHadSolverTrouble exit)
@@ -237,10 +237,10 @@ makeAppPlan (Solver.Env cache _ connection registry) pkg outline =
237237 Err suggestions ->
238238 case connection of
239239 Solver . Online _ ->
240- Task . throw ( Exit . InstallUnknownPackageOnline pkg suggestions)
240+ Task . throw ( Exit . InstallUnknownPackageOnline ( Stuff . rootPath root ) pkg suggestions)
241241
242242 Solver . Offline ->
243- Task . throw ( Exit . InstallUnknownPackageOffline pkg suggestions)
243+ Task . throw ( Exit . InstallUnknownPackageOffline ( Stuff . rootPath root ) pkg suggestions)
244244
245245 Ok _ ->
246246 Task . io ( Solver . addToApp cache connection registry pkg outline False )
@@ -251,10 +251,10 @@ makeAppPlan (Solver.Env cache _ connection registry) pkg outline =
251251 Task . pure ( Changes ( Outline . App app))
252252
253253 Solver . NoSolution ->
254- Task . throw ( Exit . InstallNoOnlineAppSolution pkg)
254+ Task . throw ( Exit . InstallElmNoOnlineAppSolution pkg)
255255
256256 Solver . NoOfflineSolution ->
257- Task . throw ( Exit . InstallNoOfflineAppSolution pkg)
257+ Task . throw ( Exit . InstallGuidaNoOfflineAppSolution ( Stuff . rootPath root ) pkg)
258258
259259 Solver . SolverErr exit ->
260260 Task . throw ( Exit . InstallHadSolverTrouble exit)
@@ -265,8 +265,8 @@ makeAppPlan (Solver.Env cache _ connection registry) pkg outline =
265265-- MAKE PACKAGE PLAN
266266
267267
268- makePkgPlan : Solver .Env -> Pkg .Name -> Outline .PkgOutline -> Task Exit .Install (Changes C .Constraint )
269- makePkgPlan ( Solver . Env cache _ connection registry) pkg outline =
268+ makePkgPlan : Stuff . Root -> Solver .Env -> Pkg .Name -> Outline .PkgOutline -> Task Exit .Install (Changes C .Constraint )
269+ makePkgPlan root ( Solver . Env cache _ connection registry) pkg outline =
270270 case outline of
271271 Outline . GuidaPkgOutline name summary license version exposed deps test guidaVersion ->
272272 if Dict . member identity pkg deps then
@@ -294,10 +294,10 @@ makePkgPlan (Solver.Env cache _ connection registry) pkg outline =
294294 Err suggestions ->
295295 case connection of
296296 Solver . Online _ ->
297- Task . throw ( Exit . InstallUnknownPackageOnline pkg suggestions)
297+ Task . throw ( Exit . InstallUnknownPackageOnline ( Stuff . rootPath root ) pkg suggestions)
298298
299299 Solver . Offline ->
300- Task . throw ( Exit . InstallUnknownPackageOffline pkg suggestions)
300+ Task . throw ( Exit . InstallUnknownPackageOffline ( Stuff . rootPath root ) pkg suggestions)
301301
302302 Ok ( Registry . KnownVersions _ _) ->
303303 let
@@ -347,10 +347,10 @@ makePkgPlan (Solver.Env cache _ connection registry) pkg outline =
347347 guidaVersion
348348
349349 Solver . NoSolution ->
350- Task . throw ( Exit . InstallNoOnlinePkgSolution pkg)
350+ Task . throw ( Exit . InstallGuidaNoOnlinePkgSolution pkg)
351351
352352 Solver . NoOfflineSolution ->
353- Task . throw ( Exit . InstallNoOfflinePkgSolution pkg)
353+ Task . throw ( Exit . InstallGuidaNoOfflinePkgSolution ( Stuff . rootPath root ) pkg)
354354
355355 Solver . SolverErr exit ->
356356 Task . throw ( Exit . InstallHadSolverTrouble exit)
@@ -382,10 +382,10 @@ makePkgPlan (Solver.Env cache _ connection registry) pkg outline =
382382 Err suggestions ->
383383 case connection of
384384 Solver . Online _ ->
385- Task . throw ( Exit . InstallUnknownPackageOnline pkg suggestions)
385+ Task . throw ( Exit . InstallUnknownPackageOnline ( Stuff . rootPath root ) pkg suggestions)
386386
387387 Solver . Offline ->
388- Task . throw ( Exit . InstallUnknownPackageOffline pkg suggestions)
388+ Task . throw ( Exit . InstallUnknownPackageOffline ( Stuff . rootPath root ) pkg suggestions)
389389
390390 Ok ( Registry . KnownVersions _ _) ->
391391 let
@@ -435,10 +435,10 @@ makePkgPlan (Solver.Env cache _ connection registry) pkg outline =
435435 elmVersion
436436
437437 Solver . NoSolution ->
438- Task . throw ( Exit . InstallNoOnlinePkgSolution pkg)
438+ Task . throw ( Exit . InstallElmNoOnlinePkgSolution pkg)
439439
440440 Solver . NoOfflineSolution ->
441- Task . throw ( Exit . InstallNoOfflinePkgSolution pkg)
441+ Task . throw ( Exit . InstallElmNoOfflinePkgSolution ( Stuff . rootPath root ) pkg)
442442
443443 Solver . SolverErr exit ->
444444 Task . throw ( Exit . InstallHadSolverTrouble exit)
0 commit comments