From c0f69730b8ce699b0be66b2d83c2f8d4a061247d Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Thu, 12 Aug 2021 18:32:32 +0200
Subject: [PATCH] refactor: hlint

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

diff --git a/src/Handler/Sheet/Form.hs b/src/Handler/Sheet/Form.hs
index f36195169..15afa9566 100644
--- a/src/Handler/Sheet/Form.hs
+++ b/src/Handler/Sheet/Form.hs
@@ -139,7 +139,7 @@ makeSheetForm cId msId template = identifyForm FIDsheet . validateForm validateS
 
                        if | not schoolSheetAuthorshipStatementAllowOther
                             -> (pure SheetAuthorshipStatementModeEnabled, pure sfAuthorshipStatementExam', )
-                               <$> fmap sequenceA (fmap (fmap $ fmap authorshipStatementDefinitionContent) . traverse forcedContentField $ entityVal <$> mSchoolAuthorshipStatement)
+                               <$> (fmap (traverse $ fmap authorshipStatementDefinitionContent) . traverse forcedContentField $ entityVal <$> mSchoolAuthorshipStatement)
                           | otherwise -> do
                               examOpts <-
                                 let examFieldQuery = E.from $ \exam -> do