From 37f0936d91b59b66b8c261b0e25676d6ad1606c4 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <vaupel.sarah@campus.lmu.de>
Date: Tue, 10 Dec 2019 16:05:46 +0100
Subject: [PATCH] fix: fix hlint

---
 src/Handler/Utils/Delete.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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'