diff options
| -rw-r--r-- | Handler/Common.hs | 4 | ||||
| -rw-r--r-- | bar.cabal | 2 | ||||
| -rw-r--r-- | bar.nix | 2 |
3 files changed, 4 insertions, 4 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 |
| @@ -1,5 +1,5 @@ | |||
| 1 | name: bar | 1 | name: bar |
| 2 | version: 0.6.4 | 2 | version: 0.6.5 |
| 3 | cabal-version: >= 1.8 | 3 | cabal-version: >= 1.8 |
| 4 | build-type: Simple | 4 | build-type: Simple |
| 5 | 5 | ||
| @@ -10,7 +10,7 @@ | |||
| 10 | }: | 10 | }: |
| 11 | mkDerivation { | 11 | mkDerivation { |
| 12 | pname = "bar"; | 12 | pname = "bar"; |
| 13 | version = "0.6.4"; | 13 | version = "0.6.5"; |
| 14 | src = ./.; | 14 | src = ./.; |
| 15 | isLibrary = true; | 15 | isLibrary = true; |
| 16 | isExecutable = true; | 16 | isExecutable = true; |
