fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix: fix hlint

Browse Source
This commit is contained in:
Sarah Vaupel 2019-12-10 16:05:46 +01:00
parent cd6829adde
commit 37f0936d91
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Utils/Delete.hs
View File

@ -82,7 +82,7 @@ postDeleteR :: ( DeleteCascade record SqlBackend )
postDeleteR mkRoute = do postDeleteR mkRoute = do
drResult <- fmap (fmap mkRoute) . runInputPost . iopt secretJsonField $ toPathPiece PostDeleteTarget 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 :: (DeleteCascade record SqlBackend) => DeleteRoute record -> Handler a
getDeleteR = deleteR' getDeleteR = deleteR'