cosmetic: stop using special function in place of pattern matching
commit3de162f7f59dbba0f0adad9b6381d8f9be055567
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateSun 10 Jun 2018, 16:56 (8 years ago)
parentadf79c6
builder/src/Deps/Verify.hs+5−1
@@ -50,7 +50,11 @@ import qualified Stuff.Paths as Paths
5050
5151verify :: FilePath -> Project -> Task.Task Summary.Summary
5252verify root project =
53− do solution <- Project.get verifyApp verifyPkg project
53+ do solution <-
54+ case project of
55+ Project.App info -> verifyApp info
56+ Project.Pkg info -> verifyPkg info
57+
5458 (RawInfo infos ifaces) <- verifyArtifacts solution
5559 return (Summary.init root project infos ifaces)
5660
builder/src/Elm/Project/Summary.hs+6−4
@@ -50,10 +50,12 @@ init :: FilePath -> Project -> Map Name PkgInfo -> Module.Interfaces -> Summary
5050init root project deps ifaces =
5151 let
5252 exposed =
53− Project.get
54− (getExposed deps . _app_deps)
55− (getExposed deps . _pkg_deps)
56− project
53+ case project of
54+ Project.App info ->
55+ getExposed deps (_app_deps info)
56+
57+ Project.Pkg info ->
58+ getExposed deps (_pkg_deps info)
5759
5860 privatizedInterfaces =
5961 Map.mapMaybeWithKey (privatize exposed) ifaces