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; |