getLastUploaded :: (MonadIO m, MonadBaseControl IO m) => String -> Request -> Manager -> m UTCTime
getLastUploaded pkg req mgr = fmap (maybe defaultTime id . either (\(_ :: SomeException) -> Nothing) id) . try $
    parseTime defaultTimeLocale "%a %b %e %X %Z %Y" . L.unpack . responseBody <$>
    httpLbs req { path = S.pack $ "/package/" ++ pkg ++ "/upload-time" } mgr
getLastUploaded :: (MonadIO m, MonadBaseControl IO m) => String -> Request -> Manager -> m UTCTime
getLastUploaded pkg req mgr = fmap (maybe defaultTime id . either (\(_ :: SomeException) -> Nothing) id) . try $
    parseTime defaultTimeLocale "%a %b %e %X %Z %Y" . L.unpack . responseBody <$>
    httpLbs req { path = S.pack $ "/package/" ++ pkg ++ "/upload-time" } mgr
getLastUploaded pkg req mgr = fmap (maybe defaultTime id . either (\(_ :: SomeException) -> Nothing) id) . try $
    parseTime defaultTimeLocale "%a %b %e %X %Z %Y" . L.unpack . responseBody <$>
    httpLbs req { path = S.pack $ "/package/" ++ pkg ++ "/upload-time" } mgr