diff --git a/src/Handler/Admin.hs b/src/Handler/Admin.hs
index 9ef15cb84..4b60459b1 100644
--- a/src/Handler/Admin.hs
+++ b/src/Handler/Admin.hs
@@ -197,7 +197,7 @@ postAdminTestR = do
 
   -- The actual call to @massInput@ is comparatively simple:
     
-  ((miResult, (fvInput -> miForm)), miEnc) <- runFormPost . identifyForm ("massinput" :: Text) $ massInput (MassInput mkAddForm mkCellForm deleteCell allowAdd) "" True Nothing
+  ((miResult, fvInput -> miForm), miEnc) <- runFormPost . identifyForm ("massinput" :: Text) $ massInput (MassInput mkAddForm mkCellForm deleteCell allowAdd) "" True Nothing
 
 
   let locallyDefinedPageHeading = [whamlet|Admin TestPage for Uni2work|]
diff --git a/src/Utils.hs b/src/Utils.hs
index 8c08d999c..8cfc1a905 100644
--- a/src/Utils.hs
+++ b/src/Utils.hs
@@ -68,6 +68,8 @@ import qualified Crypto.Data.PKCS7 as PKCS7
 import Data.Fixed (Centi)
 import Data.Ratio ((%))
 
+{-# ANN choice ("HLint: ignore Use asum" :: String) #-}
+
 
 
 -----------