From 6dbf8916a5221ee2e63f7bad887d9347a54e8164 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 20 Mar 2019 22:29:08 +0100 Subject: [PATCH] Remove log comment, which breaks haddock --- src/Handler/Utils/Form/MassInput.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/src/Handler/Utils/Form/MassInput.hs b/src/Handler/Utils/Form/MassInput.hs index 8da523d3a..0a65194b6 100644 --- a/src/Handler/Utils/Form/MassInput.hs +++ b/src/Handler/Utils/Form/MassInput.hs @@ -268,7 +268,6 @@ massInput MassInput{..} FieldSettings{..} fvRequired initialResult csrf = do delForm :: BoxCoord liveliness -> MaybeT (MForm handler) (FormResult (Map (BoxCoord liveliness) (BoxCoord liveliness)), FieldView UniWorX) delForm miCoord = do (delRes, delView) <- lift $ mpreq (buttonField $ MassInputDeleteCell miCoord) ("" & addName MassInputDeleteButton{..}) Nothing - -- $logDebugS "delForm" . tshow $ fmap toPathPiece delRes shapeUpdate <- miDelete addedLiveliness miCoord guard $ isJust (Map.keysSet shapeUpdate ^? liveCoords :: Maybe liveliness) return (shapeUpdate <$ delRes, delView)