@@ -327,8 +327,6 @@ getConstraints pkg vsn =
327 err (Exit.SolverBadHttpData pkg vsn)
327 err (Exit.SolverBadHttpData pkg vsn)
330−-- TODO write constraintsDecoder to be a bit faster
332constraintsDecoder :: D.Decoder () Constraints
330constraintsDecoder :: D.Decoder () Constraints
333constraintsDecoder =
331constraintsDecoder =
334 do outline <- D.mapError (const ()) Outline.decoder
332 do outline <- D.mapError (const ()) Outline.decoder