getManager :: YesodWorker master => HandlerT master IO K.Manager
getManager = do
  Workers{..} <- workers <$> getYesod
  liftIO $ do
    m <- readMVar wManager
    return $! m
getManager :: YesodWorker master => HandlerT master IO K.Manager
getManager = do
  Workers{..} <- workers <$> getYesod
  liftIO $ do
    m <- readMVar wManager
    return $! m
getManager = do
  Workers{..} <- workers <$> getYesod
  liftIO $ do
    m <- readMVar wManager
    return $! m