diff options
Diffstat (limited to 'Handler/Common.hs')
| -rw-r--r-- | Handler/Common.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 | |||
| 105 | groupId <- newIdent | 105 | groupId <- newIdent |
| 106 | 106 | ||
| 107 | dNever <- mWhen dfNever $ | 107 | dNever <- mWhen dfNever $ |
| 108 | mopt checkBoxField ("" { fsId = Just $ Text.pack neverBoxId }) . Just . Just . fromMaybe True $ fmap isNever proto | 108 | mopt checkBoxField ("" { fsId = Just neverBoxId }) . Just . Just . fromMaybe True $ fmap isNever proto |
| 109 | dUnknown <- mWhen dfUnknown $ | 109 | dUnknown <- mWhen dfUnknown $ |
| 110 | mopt checkBoxField ("" { fsId = Just $ Text.pack unknownBoxId }) . Just . Just . fromMaybe False $ fmap isUnknown proto | 110 | mopt checkBoxField ("" { fsId = Just unknownBoxId }) . Just . Just . fromMaybe False $ fmap isUnknown proto |
| 111 | dDay <- mWhen dfKnown $ | 111 | dDay <- mWhen dfKnown $ |
| 112 | mopt dayField "" . Just . Just $ case proto of | 112 | mopt dayField "" . Just . Just $ case proto of |
| 113 | Just (DateKnown d) -> d | 113 | Just (DateKnown d) -> d |