getArticle :: ID -> MySQL (Maybe Article)
getArticle aid prefix conn = listToMaybe <$> query conn sql (Only aid)
  where sql = fromString $ concat ["SELECT * FROM `", prefix, "_articles` WHERE `id`=?"]
getArticle :: ID -> MySQL (Maybe Article)
getArticle aid prefix conn = listToMaybe <$> query conn sql (Only aid)
  where sql = fromString $ concat ["SELECT * FROM `", prefix, "_articles` WHERE `id`=?"]
getArticle aid prefix conn = listToMaybe <$> query conn sql (Only aid)
  where sql = fromString $ concat ["SELECT * FROM `", prefix, "_articles` WHERE `id`=?"]