Commits

Luke Plant committed 4d4f501

Removed unnecessary '$'s

Comments (0)

Files changed (1)

src/Blog/Model.hs

         "WHERE id = ?" [ toSql $ Ct.uid c]
 
 deleteCategory cn uid = do
-  DB.doDelete cn "post_categories" "WHERE category_id = ?" [toSql $ uid]
-  DB.doDelete cn "categories" "WHERE id = ?" [toSql $ uid]
+  DB.doDelete cn "post_categories" "WHERE category_id = ?" [toSql uid]
+  DB.doDelete cn "categories" "WHERE id = ?" [toSql uid]
 
 -- post_categories tables
 addPostCategory :: (IConnection conn) => conn -> (Int, Int) -> IO (Int, Int)