git.iko.soy/elk
on master help sign in
cosmetic: stop using special function in place of pattern matching
3de162fEvan Czaplicki
builder/src/Deps/Verify.hs+5−1
compare with master
unifiedsplit
@@ -50,7 +50,11 @@ import qualified Stuff.Paths as Paths
50
50
51verify :: FilePath -> Project -> Task.Task Summary.Summary
51verify :: FilePath -> Project -> Task.Task Summary.Summary
52verify root project =
52verify root project =
53+ do solution <-
54+ case project of
53− do solution <- Project.get verifyApp verifyPkg project
55+ Project.App info -> verifyApp info
56+ Project.Pkg info -> verifyPkg info
57+
54 (RawInfo infos ifaces) <- verifyArtifacts solution
58 (RawInfo infos ifaces) <- verifyArtifacts solution
55 return (Summary.init root project infos ifaces)
59 return (Summary.init root project infos ifaces)
56
60
builder/src/Elm/Project/Summary.hs+6−4
@@ -50,10 +50,12 @@ init :: FilePath -> Project -> Map Name PkgInfo -> Module.Interfaces -> Summary
50init root project deps ifaces =
50init root project deps ifaces =
51 let
51 let
52 exposed =
52 exposed =
53+ case project of
53− Project.get
54+ Project.App info ->
54− (getExposed deps . _app_deps)
55+ getExposed deps (_app_deps info)
56+
57+ Project.Pkg info ->
55− (getExposed deps . _pkg_deps)
58+ getExposed deps (_pkg_deps info)
56− project
57
59
58 privatizedInterfaces =
60 privatizedInterfaces =
59 Map.mapMaybeWithKey (privatize exposed) ifaces
61 Map.mapMaybeWithKey (privatize exposed) ifaces