posts: delete post via json

config/routes

@@ -17,3 +17,4 @@
 /posts/#PostId PostR DELETE
 
 /api/posts ApiPostsR GET POST
+/api/posts/#PostId ApiPostR DELETE

src/Foundation.hs

@@ -182,6 +182,7 @@ instance Yesod App where
     isAuthorized PostsR _ = isAuthenticated
     isAuthorized ApiPostsR _ = isAuthenticated
     isAuthorized (PostR postId) _ = isOwner postId
+    isAuthorized (ApiPostR postId) _ = isOwner postId
 
     -- This function creates static content files in the static folder
     -- and names them based on a hash of their content. This allows

src/Handler/Posts.hs

@@ -123,3 +123,8 @@ deletePostR :: PostId -> Handler Html
 deletePostR postId = do
   _ <- runDB $ delete postId
   redirect PostsR
+
+deleteApiPostR :: PostId -> Handler Value
+deleteApiPostR postId = do
+  _ <- runDB $ delete postId
+  return Null