removeArticle :: ID -> MySQL Int64
removeArticle aid prefix conn = execute conn sql (Only aid)
  where sql = fromString $ concat [ "DELETE FROM `", prefix, "_articles` WHERE `id`=?"]
removeArticle :: ID -> MySQL Int64
removeArticle aid prefix conn = execute conn sql (Only aid)
  where sql = fromString $ concat [ "DELETE FROM `", prefix, "_articles` WHERE `id`=?"]
removeArticle aid prefix conn = execute conn sql (Only aid)
  where sql = fromString $ concat [ "DELETE FROM `", prefix, "_articles` WHERE `id`=?"]