toPerson :: TL.Text -> TL.Text -> Atom.Person
toPerson domain name =
  Atom.nullPerson
    { Atom.personName = TL.toStrict name
    , Atom.personURI  = Just $ TL.toStrict domain
    , Atom.personEmail = Nothing
    }
toPerson :: TL.Text -> TL.Text -> Atom.Person
toPerson domain name =
  Atom.nullPerson
    { Atom.personName = TL.toStrict name
    , Atom.personURI  = Just $ TL.toStrict domain
    , Atom.personEmail = Nothing
    }
toPerson domain name =
  Atom.nullPerson
    { Atom.personName = TL.toStrict name
    , Atom.personURI  = Just $ TL.toStrict domain
    , Atom.personEmail = Nothing
    }