git.iko.soy/elk
on master help sign in
cosmetic: more modern indentation
d076793Evan Czaplicki
builder/src/Deps/Plan.hs+3−2
compare with master
unifiedsplit
@@ -6,7 +6,8 @@ import qualified Elm.Package.Solution as S
6import qualified Elm.Package as Package
6import qualified Elm.Package as Package
7
7
8
8
9−data Plan = Plan
9+data Plan =
10+ Plan
10 { installs :: Map.Map Package.Name Package.Version
11 { installs :: Map.Map Package.Name Package.Version
11 , upgrades :: Map.Map Package.Name (Package.Version, Package.Version)
12 , upgrades :: Map.Map Package.Name (Package.Version, Package.Version)
12 , removals :: Map.Map Package.Name Package.Version
13 , removals :: Map.Map Package.Name Package.Version
@@ -15,7 +16,7 @@ data Plan = Plan
15
16
16create :: S.Solution -> S.Solution -> Plan
17create :: S.Solution -> S.Solution -> Plan
17create old new =
18create old new =
18− Plan
19+ Plan
19 { installs = Map.difference new old
20 { installs = Map.difference new old
20 , upgrades = discardNoOps (Map.intersectionWith (,) old new)
21 , upgrades = discardNoOps (Map.intersectionWith (,) old new)
21 , removals = Map.difference old new
22 , removals = Map.difference old new