getCommentsR :: SiteId -> Handler Value
getCommentsR siteId = do
    allowCrossOrigin

    marticle <- lookupGetParam "article"
    comments <- runDB $ findUserComments siteId marticle

    return $ object ["comments" .= comments]
getCommentsR :: SiteId -> Handler Value
getCommentsR siteId = do
    allowCrossOrigin

    marticle <- lookupGetParam "article"
    comments <- runDB $ findUserComments siteId marticle

    return $ object ["comments" .= comments]
getCommentsR siteId = do
    allowCrossOrigin

    marticle <- lookupGetParam "article"
    comments <- runDB $ findUserComments siteId marticle

    return $ object ["comments" .= comments]