@@ -6,7 +6,8 @@ import qualified Elm.Package.Solution as S
66import qualified Elm.Package as Package
77
88
9−data Plan = Plan
9+data Plan =
10+ Plan
1011 { installs :: Map.Map Package.Name Package.Version
1112 , upgrades :: Map.Map Package.Name (Package.Version, Package.Version)
1213 , removals :: Map.Map Package.Name Package.Version
@@ -15,7 +16,7 @@ data Plan = Plan
1516
1617create :: S.Solution -> S.Solution -> Plan
1718create old new =
18− Plan
19+ Plan
1920 { installs = Map.difference new old
2021 , upgrades = discardNoOps (Map.intersectionWith (,) old new)
2122 , removals = Map.difference old new