From 8a8dc04c61dcc8dce910b148d3418c8e58e6d4da Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 30 Jul 2017 16:32:43 +0200 Subject: Fix build --- Handler/Common.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Handler') diff --git a/Handler/Common.hs b/Handler/Common.hs index 87496cb..ab84e4e 100644 --- a/Handler/Common.hs +++ b/Handler/Common.hs @@ -105,9 +105,9 @@ itemForm proto identView = do groupId <- newIdent dNever <- mWhen dfNever $ - mopt checkBoxField ("" { fsId = Just $ Text.pack neverBoxId }) . Just . Just . fromMaybe True $ fmap isNever proto + mopt checkBoxField ("" { fsId = Just neverBoxId }) . Just . Just . fromMaybe True $ fmap isNever proto dUnknown <- mWhen dfUnknown $ - mopt checkBoxField ("" { fsId = Just $ Text.pack unknownBoxId }) . Just . Just . fromMaybe False $ fmap isUnknown proto + mopt checkBoxField ("" { fsId = Just unknownBoxId }) . Just . Just . fromMaybe False $ fmap isUnknown proto dDay <- mWhen dfKnown $ mopt dayField "" . Just . Just $ case proto of Just (DateKnown d) -> d -- cgit v1.2.3