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