updateArticleContent :: ID -> Content -> MySQL Int64
updateArticleContent aid content prefix conn =
  execute conn sql (content, aid)
  where sql = fromString $ concat [ "UPDATE `", prefix, "_articles` SET `content` = ? WHERE `id` = ?" ]
updateArticleContent :: ID -> Content -> MySQL Int64
updateArticleContent aid content prefix conn =
  execute conn sql (content, aid)
  where sql = fromString $ concat [ "UPDATE `", prefix, "_articles` SET `content` = ? WHERE `id` = ?" ]
updateArticleContent aid content prefix conn =
  execute conn sql (content, aid)
  where sql = fromString $ concat [ "UPDATE `", prefix, "_articles` SET `content` = ? WHERE `id` = ?" ]