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