summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Handler/Common.hs4
-rw-r--r--bar.cabal2
-rw-r--r--bar.nix2
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
diff --git a/bar.cabal b/bar.cabal
index 13e47d1..37eedf3 100644
--- a/bar.cabal
+++ b/bar.cabal
@@ -1,5 +1,5 @@
1name: bar 1name: bar
2version: 0.6.4 2version: 0.6.5
3cabal-version: >= 1.8 3cabal-version: >= 1.8
4build-type: Simple 4build-type: Simple
5 5
diff --git a/bar.nix b/bar.nix
index 1b690db..c41d3f8 100644
--- a/bar.nix
+++ b/bar.nix
@@ -10,7 +10,7 @@
10}: 10}:
11mkDerivation { 11mkDerivation {
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;