diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2017-07-30 16:32:43 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2017-07-30 16:32:43 +0200 |
| commit | 8a8dc04c61dcc8dce910b148d3418c8e58e6d4da (patch) | |
| tree | 1f25f089fe05de011ac6ac8cb6328e8e2d9d5cbf /Handler | |
| parent | a1c4553928369068e019f350a6736c62effb9fc6 (diff) | |
| download | bar-8a8dc04c61dcc8dce910b148d3418c8e58e6d4da.tar bar-8a8dc04c61dcc8dce910b148d3418c8e58e6d4da.tar.gz bar-8a8dc04c61dcc8dce910b148d3418c8e58e6d4da.tar.bz2 bar-8a8dc04c61dcc8dce910b148d3418c8e58e6d4da.tar.xz bar-8a8dc04c61dcc8dce910b148d3418c8e58e6d4da.zip | |
Fix build
Diffstat (limited to 'Handler')
| -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 |