diff --git a/src/Handler/Utils/Delete.hs b/src/Handler/Utils/Delete.hs
index d91d9a3fc..6f758786f 100644
--- a/src/Handler/Utils/Delete.hs
+++ b/src/Handler/Utils/Delete.hs
@@ -82,7 +82,7 @@ postDeleteR :: ( DeleteCascade record SqlBackend )
 postDeleteR mkRoute = do
   drResult <- fmap (fmap mkRoute) . runInputPost . iopt secretJsonField $ toPathPiece PostDeleteTarget
 
-  void $ traverse deleteR' drResult
+  traverse_ deleteR' drResult
 
 getDeleteR :: (DeleteCascade record SqlBackend) => DeleteRoute record -> Handler a
 getDeleteR = deleteR'