[Pkg-haskell-commits] darcs: haskell-yesod-form: Avoid haddock failures.

[Clint Adams]

Sun Oct 21 18:40:48 UTC 2012  Clint Adams <clint at debian.org>
  * Avoid haddock failures.
  Ignore-this: 3d208af0e8b6902a024101770d2851f1

    M ./changelog -1 +1
    R ./hlibrary.setup
    A ./patches/
    A ./patches/dont-confuse-haddock.diff
    A ./patches/series

Sun Oct 21 18:40:48 UTC 2012  Clint Adams <clint at debian.org>
  * Avoid haddock failures.
  Ignore-this: 3d208af0e8b6902a024101770d2851f1
diff -rN -u old-haskell-yesod-form//changelog new-haskell-yesod-form//changelog
--- old-haskell-yesod-form//changelog	2012-10-21 19:03:19.543719632 +0000
+++ new-haskell-yesod-form//changelog	2012-10-21 19:03:19.603721583 +0000
@@ -1,4 +1,4 @@
-haskell-yesod-form (1.1.3-1) UNRELEASED; urgency=low
+haskell-yesod-form (1.1.3-1) experimental; urgency=low
 
   [ Joachim Breitner ]
   * Depend on haskell-devscripts 0.8.13 to ensure this package is built
Binary files old-haskell-yesod-form//hlibrary.setup and new-haskell-yesod-form//hlibrary.setup differ
diff -rN -u old-haskell-yesod-form//patches/dont-confuse-haddock.diff new-haskell-yesod-form//patches/dont-confuse-haddock.diff
--- old-haskell-yesod-form//patches/dont-confuse-haddock.diff	1970-01-01 00:00:00.000000000 +0000
+++ new-haskell-yesod-form//patches/dont-confuse-haddock.diff	2012-10-21 19:03:19.607719379 +0000
@@ -0,0 +1,35 @@
+Index: yesod-form-1.1.3/Yesod/Form/Types.hs
+===================================================================
+--- yesod-form-1.1.3.orig/Yesod/Form/Types.hs	2012-09-24 14:15:01.000000000 +0000
++++ yesod-form-1.1.3/Yesod/Form/Types.hs	2012-10-21 18:27:22.601582777 +0000
+@@ -125,11 +125,12 @@
+ 
+ data Field sub master a = Field
+     { fieldParse :: [Text] -> GHandler sub master (Either (SomeMessage master) (Maybe a))
+-    , fieldView :: Text -- ^ ID
+-                -> Text -- ^ Name
+-                -> [(Text, Text)] -- ^ Attributes
+-                -> Either Text a -- ^ Either (invalid text) or (legitimate result)
+-                -> Bool -- ^ Required?
++      -- | ID, Name, Attributes, Either (invalid text) or (legitimate result), Required?
++    , fieldView :: Text --
++                -> Text --
++                -> [(Text, Text)] --
++                -> Either Text a --
++                -> Bool --
+                 -> GWidget sub master ()
+     }
+ 
+Index: yesod-form-1.1.3/Yesod/Form/Functions.hs
+===================================================================
+--- yesod-form-1.1.3.orig/Yesod/Form/Functions.hs	2012-09-24 14:15:01.000000000 +0000
++++ yesod-form-1.1.3/Yesod/Form/Functions.hs	2012-10-21 18:28:55.472901040 +0000
+@@ -202,7 +202,7 @@
+                         FormFailure [renderMessage m langs MsgCsrfWarning]
+                 _ -> res
+             where (Just [t1]) === (Just t2) = TE.encodeUtf8 t1 `constTimeEq` TE.encodeUtf8 t2
+-                  Nothing     === Nothing   = True   -- ^ It's important to use constTimeEq
++                  Nothing     === Nothing   = True   -- It's important to use constTimeEq
+                   _           === _         = False  -- in order to avoid timing attacks.
+     return ((res', xml), enctype)
+ 
diff -rN -u old-haskell-yesod-form//patches/series new-haskell-yesod-form//patches/series
--- old-haskell-yesod-form//patches/series	1970-01-01 00:00:00.000000000 +0000
+++ new-haskell-yesod-form//patches/series	2012-10-21 19:03:19.607719379 +0000
@@ -0,0 +1 @@
+dont-confuse-haddock.diff