Luke Plant avatar Luke Plant committed 4a344e4

Small refactor

Comments (0)

Files changed (1)

src/Blog/Model.hs

   return p
 
 deletePost cn uid = do
-  DB.doDelete cn "post_categories" "WHERE post_id = ?" [toSql uid]
+  deletePostCategoriesForPost cn uid
   DB.doDelete cn "posts" "WHERE id = ?" [toSql uid]
 
 -- category table
         "WHERE id = ?" [ toSql $ Ct.uid c]
 
 deleteCategory cn uid = do
-  DB.doDelete cn "post_categories" "WHERE category_id = ?" [toSql uid]
+  deletePostCategoriesForCat cn uid
   DB.doDelete cn "categories" "WHERE id = ?" [toSql uid]
 
 -- post_categories tables
                              [toSql $ fst pc,
                               toSql $ snd pc];
                              return pc; }
+
+deletePostCategoriesForCat cn catId =
+  DB.doDelete cn "post_categories" "WHERE category_id = ?" [toSql catId]
+
+deletePostCategoriesForPost cn postId =
+  DB.doDelete cn "post_categories" "WHERE post_id = ?" [toSql postId]
+
 setPostCategories cn postId catIds = do
-  DB.doDelete cn "post_categories" "WHERE post_id = ?" [toSql postId]
+  deletePostCategoriesForPost cn postId
   mapM_ (\c -> addPostCategory cn (postId, c)) catIds
 
 
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.