buildComment :: UTCTime -> Entity User -> SiteId -> CommentRequest -> Comment
buildComment t u siteId req = Comment
    { commentUser = entityKey u
    , commentSite = siteId
    , commentArticleURL = reqArticle req
    , commentArticleTitle = reqArticleTitle req
    , commentArticleAuthor = reqArticleAuthor req
    , commentThread = reqThread req
    , commentBody = reqBody req
    , commentCreated = t
    }
buildComment :: UTCTime -> Entity User -> SiteId -> CommentRequest -> Comment
buildComment t u siteId req = Comment
    { commentUser = entityKey u
    , commentSite = siteId
    , commentArticleURL = reqArticle req
    , commentArticleTitle = reqArticleTitle req
    , commentArticleAuthor = reqArticleAuthor req
    , commentThread = reqThread req
    , commentBody = reqBody req
    , commentCreated = t
    }
buildComment t u siteId req = Comment
    { commentUser = entityKey u
    , commentSite = siteId
    , commentArticleURL = reqArticle req
    , commentArticleTitle = reqArticleTitle req
    , commentArticleAuthor = reqArticleAuthor req
    , commentThread = reqThread req
    , commentBody = reqBody req
    , commentCreated = t
    }