userInfo :: Username -> PagureT (Maybe UserResponse)
userInfo u = do
  resp <- asJSON =<< pagureGet ("user/" ++ T.unpack u)
  return $ resp ^. responseBody
userInfo :: Username -> PagureT (Maybe UserResponse)
userInfo u = do
  resp <- asJSON =<< pagureGet ("user/" ++ T.unpack u)
  return $ resp ^. responseBody
userInfo u = do
  resp <- asJSON =<< pagureGet ("user/" ++ T.unpack u)
  return $ resp ^. responseBody