From 40bb0ddaf6462a2107a899b6f4d2df713d1ef5c2 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 20 Mar 2019 22:58:46 +0100 Subject: [PATCH] Quiet Hlint --- src/Handler/Admin.hs | 2 +- src/Utils.hs | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) 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) #-} + -----------