newAuth :: Client -> IO Auth
newAuth c
  = getAuth
  $ Auth c Nothing Nothing
newAuth :: Client -> IO Auth
newAuth c
  = getAuth
  $ Auth c Nothing Nothing
newAuth c
  = getAuth
  $ Auth c Nothing Nothing