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