Bump digestive-functors version

spockz · Oct 27, 2011 · 05a959d · 05a959d
1 parent bee243c
commit 05a959d
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git a/JCU.cabal b/JCU.cabal
@@ -45,9 +45,9 @@ Executable jcu
     containers >= 0.4,
     data-lens >= 2,
     data-lens-template >= 2,
-    digestive-functors >= 0.1,
-    digestive-functors-blaze >= 0.1.1,
-    digestive-functors-snap >= 0.1,
+    digestive-functors >= 0.2 && < 0.3,
+    digestive-functors-blaze >= 0.2.1 && < 0.3,
+    digestive-functors-snap >= 0.1.1 && < 0.3,
     email-validate >= 0.2.6,
     HDBC >= 2.2,
     HDBC-sqlite3 >= 2.3,
@@ -58,7 +58,7 @@ Executable jcu
     snap >= 0.6,
     snap-core >= 0.6,
     snap-server >= 0.6,
-    snaplet-hdbc >= 0.1.1,
+    snaplet-hdbc >= 0.2,
     text >= 0.11,
     time >= 1.1 && < 1.3,
     transformers >= 0.2,

diff --git a/src/Application.hs b/src/Application.hs
@@ -292,7 +292,7 @@ loginForm = (\e p r _ -> FormUser e p r)
        <++    errors)
   <*>  mapViewHtml H.div (
        label  "Password: "
-       ++>    inputPassword `validate` longPwd
+       ++>    inputPassword False `validate` longPwd
        <++    errors)
   <*>  mapViewHtml H.div (
        label  "Remember me?"
@@ -316,11 +316,11 @@ registrationForm = (\ep pp _ -> FormUser (fst ep) (fst pp) False)
   <*>  ((,)
          <$>  mapViewHtml H.div (
               label  "Password: "
-              ++>    inputPassword `validate` longPwd
+              ++>    inputPassword False `validate` longPwd
               <++    errors)
          <*>  mapViewHtml H.div (
               label  "Password (confirmation): "
-              ++>    inputPassword `validate` longPwd
+              ++>    inputPassword False `validate` longPwd
               <++    errors))
        `validate`  identical
        <++         errors