getDeprecateds :: (MonadThrow m, MonadIO m) => Manager -> m (H.HashMap T.Text [T.Text])
getDeprecateds mgr = do
    req <- parseUrl "http://hackage.haskell.org/packages/deprecated"
    res <- httpLbs req { requestHeaders = ("Accept", "application/json") : requestHeaders req } mgr
    maybe (fail "getDeprecateds: decode json failed.") return $
        unDeprecateds <$> (JSON.decode $ responseBody res)
getDeprecateds :: (MonadThrow m, MonadIO m) => Manager -> m (H.HashMap T.Text [T.Text])
getDeprecateds mgr = do
    req <- parseUrl "http://hackage.haskell.org/packages/deprecated"
    res <- httpLbs req { requestHeaders = ("Accept", "application/json") : requestHeaders req } mgr
    maybe (fail "getDeprecateds: decode json failed.") return $
        unDeprecateds <$> (JSON.decode $ responseBody res)
getDeprecateds mgr = do
    req <- parseUrl "http://hackage.haskell.org/packages/deprecated"
    res <- httpLbs req { requestHeaders = ("Accept", "application/json") : requestHeaders req } mgr
    maybe (fail "getDeprecateds: decode json failed.") return $
        unDeprecateds <$> (JSON.decode $ responseBody res)