bc785d0 · elk · git.iko.soy

28import qualified File

29import qualified Http

30import qualified Json.Decode as D

31−import qualified Reporting.Exit as E

31+import qualified Reporting.Exit as Exit

32import qualified Reporting.Suggest as Suggest

33import qualified Stuff

34

68-- FETCH

69

70

71−fetch :: Http.Manager -> Stuff.PackageCache -> IO (Either E.RegistryProblem Registry)

71+fetch :: Http.Manager -> Stuff.PackageCache -> IO (Either Exit.RegistryProblem Registry)

72fetch manager cache =

73 post manager "/all-packages" allPkgsDecoder $

74 \versions ->

112-- UPDATE

113

114

115−update :: Http.Manager -> Stuff.PackageCache -> Registry -> IO (Either E.RegistryProblem Registry)

115+update :: Http.Manager -> Stuff.PackageCache -> Registry -> IO (Either Exit.RegistryProblem Registry)

116update manager cache oldRegistry@(Registry size packages) =

117 post manager ("/all-packages/since/" ++ show size) (D.list newPkgDecoder) $

118 \news ->

166-- LATEST

167

168

169−latest :: Http.Manager -> Stuff.PackageCache -> IO (Either E.RegistryProblem Registry)

169+latest :: Http.Manager -> Stuff.PackageCache -> IO (Either Exit.RegistryProblem Registry)

170latest manager cache =

171 do maybeOldRegistry <- read cache

172 case maybeOldRegistry of

223-- POST

224

225

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)

227post manager path decoder callback =

228− Http.post manager (Website.route path []) [] E.RP_Http $

228+ Http.post manager (Website.route path []) [] Exit.RP_Http $

229 \body ->

230 case D.fromByteString decoder body of

231 Right a -> Right <$> callback a

232− Left _ -> return $ Left E.RP_Data

232+ Left _ -> return $ Left Exit.RP_Data

233

234

235