@@ -56,11 +56,11 @@ run args () =
5656 case oldOutline of
5757 Outline.App outline ->
5858 do changes <- makeAppPlan env pkg outline
59− attemptChanges root env pkg oldOutline V.toChars changes
59+ attemptChanges root env oldOutline V.toChars changes
6060
6161 Outline.Pkg outline ->
6262 do changes <- makePkgPlan env pkg outline
63− attemptChanges root env pkg oldOutline C.toChars changes
63+ attemptChanges root env oldOutline C.toChars changes
6464
6565
6666
@@ -77,14 +77,14 @@ data Changes vsn
7777type Task = Task.Task Exit.Install
7878
7979
80−attemptChanges :: FilePath -> Solver.Env -> Pkg.Name -> Outline.Outline -> (a -> String) -> Changes a -> Task ()
81−attemptChanges root env pkg oldOutline toChars changes =
80+attemptChanges :: FilePath -> Solver.Env -> Outline.Outline -> (a -> String) -> Changes a -> Task ()
81+attemptChanges root env oldOutline toChars changes =
8282 case changes of
8383 AlreadyInstalled ->
8484 Task.io $ putStrLn "It is already installed!"
8585
8686 PromoteIndirect newOutline ->
87− attemptChangesHelp root env pkg oldOutline newOutline $
87+ attemptChangesHelp root env oldOutline newOutline $
8888 D.vcat
8989 [ D.fillSep
9090 ["I","found","it","in","your","elm.json","file,"
@@ -97,7 +97,7 @@ attemptChanges root env pkg oldOutline toChars changes =
9797 ]
9898
9999 PromoteTest newOutline ->
100− attemptChangesHelp root env pkg oldOutline newOutline $
100+ attemptChangesHelp root env oldOutline newOutline $
101101 D.vcat
102102 [ D.fillSep
103103 ["I","found","it","in","your","elm.json","file,"
@@ -114,7 +114,7 @@ attemptChanges root env pkg oldOutline toChars changes =
114114 widths = Map.foldrWithKey (widen toChars) (Widths 0 0 0) changeDict
115115 changeDocs = Map.foldrWithKey (addChange toChars widths) (Docs [] [] []) changeDict
116116 in
117− attemptChangesHelp root env pkg oldOutline newOutline $ D.vcat $
117+ attemptChangesHelp root env oldOutline newOutline $ D.vcat $
118118 [ "Here is my plan:"
119119 , viewChangeDocs changeDocs
120120 , ""
@@ -122,8 +122,8 @@ attemptChanges root env pkg oldOutline toChars changes =
122122 ]
123123
124124
125−attemptChangesHelp :: FilePath -> Solver.Env -> Pkg.Name -> Outline.Outline -> Outline.Outline -> D.Doc -> Task ()
126−attemptChangesHelp root env pkg oldOutline newOutline question =
125+attemptChangesHelp :: FilePath -> Solver.Env -> Outline.Outline -> Outline.Outline -> D.Doc -> Task ()
126+attemptChangesHelp root env oldOutline newOutline question =
127127 Task.eio Exit.InstallBadDetails $
128128 BW.withScope $ \scope ->
129129 do approved <- Reporting.ask question