updateArticleExtra :: ID -> Value -> MySQL Int64
updateArticleExtra artId extra prefix conn =
  execute conn sql (encode extra, artId)
  where sql = fromString $ concat [ "UPDATE `", prefix, "_articles` SET `extra` = ? WHERE `id` = ?" ]
updateArticleExtra :: ID -> Value -> MySQL Int64
updateArticleExtra artId extra prefix conn =
  execute conn sql (encode extra, artId)
  where sql = fromString $ concat [ "UPDATE `", prefix, "_articles` SET `extra` = ? WHERE `id` = ?" ]
updateArticleExtra artId extra prefix conn =
  execute conn sql (encode extra, artId)
  where sql = fromString $ concat [ "UPDATE `", prefix, "_articles` SET `extra` = ? WHERE `id` = ?" ]