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

Quiet Hlint

Browse Source
This commit is contained in:
Gregor Kleen 2019-03-20 22:58:46 +01:00
parent 6dbf8916a5
commit 40bb0ddaf6
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Admin.hs
View File

@ -197,7 +197,7 @@ postAdminTestR = do
-- The actual call to @massInput@ is comparatively simple: -- 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|] let locallyDefinedPageHeading = [whamlet|Admin TestPage for Uni2work|]

2
src/Utils.hs
View File

@ -68,6 +68,8 @@ import qualified Crypto.Data.PKCS7 as PKCS7
import Data.Fixed (Centi) import Data.Fixed (Centi)
import Data.Ratio ((%)) import Data.Ratio ((%))
{-# ANN choice ("HLint: ignore Use asum" :: String) #-}
----------- -----------