git.iko.soy/elk
on master help sign in
Switch qualified E to Exit
commitbc785d04919d9c862fe8caa11a4fe88aee4dc2f5 authorEvan Czaplicki <evancz@users.noreply.github.com> dateTue 16 Apr 2019, 14:58 (8 years ago) parentf4b6b0f
1 file changed+7−7
compare with master
unifiedsplit
builder/src/Deps/Registry.hs+7−7
builder/src/Deps/Registry.hs+7−7
@@ -28,7 +28,7 @@ import qualified Elm.Version as V
2828import qualified File
2929import qualified Http
3030import qualified Json.Decode as D
31−import qualified Reporting.Exit as E
31+import qualified Reporting.Exit as Exit
3232import qualified Reporting.Suggest as Suggest
3333import qualified Stuff
3434
@@ -68,7 +68,7 @@ read cache =
6868-- FETCH
6969
7070
71−fetch :: Http.Manager -> Stuff.PackageCache -> IO (Either E.RegistryProblem Registry)
71+fetch :: Http.Manager -> Stuff.PackageCache -> IO (Either Exit.RegistryProblem Registry)
7272fetch manager cache =
7373 post manager "/all-packages" allPkgsDecoder $
7474 \versions ->
@@ -112,7 +112,7 @@ allPkgsDecoder =
112112-- UPDATE
113113
114114
115−update :: Http.Manager -> Stuff.PackageCache -> Registry -> IO (Either E.RegistryProblem Registry)
115+update :: Http.Manager -> Stuff.PackageCache -> Registry -> IO (Either Exit.RegistryProblem Registry)
116116update manager cache oldRegistry@(Registry size packages) =
117117 post manager ("/all-packages/since/" ++ show size) (D.list newPkgDecoder) $
118118 \news ->
@@ -166,7 +166,7 @@ newPkgDecoder =
166166-- LATEST
167167
168168
169−latest :: Http.Manager -> Stuff.PackageCache -> IO (Either E.RegistryProblem Registry)
169+latest :: Http.Manager -> Stuff.PackageCache -> IO (Either Exit.RegistryProblem Registry)
170170latest manager cache =
171171 do maybeOldRegistry <- read cache
172172 case maybeOldRegistry of
@@ -223,13 +223,13 @@ projectDistance bad possibility =
223223-- POST
224224
225225
226−post :: Http.Manager -> String -> D.Decoder x a -> (a -> IO b) -> IO (Either E.RegistryProblem b)
226+post :: Http.Manager -> String -> D.Decoder x a -> (a -> IO b) -> IO (Either Exit.RegistryProblem b)
227227post manager path decoder callback =
228− Http.post manager (Website.route path []) [] E.RP_Http $
228+ Http.post manager (Website.route path []) [] Exit.RP_Http $
229229 \body ->
230230 case D.fromByteString decoder body of
231231 Right a -> Right <$> callback a
232− Left _ -> return $ Left E.RP_Data
232+ Left _ -> return $ Left Exit.RP_Data
233233
234234
235235