digestive-functors-blaze 0.6.1.0 → 0.6.2.0

raw patch · 3 files changed

+16/−12 lines, 3 filesdep ~blaze-htmldep ~blaze-markupdep ~digestive-functorsPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: blaze-html, blaze-markup, digestive-functors, text

API changes (from Hackage documentation)

Files

• CHANGELOG +7/−0
• digestive-functors-blaze.cabal +6/−6
• src/Text/Digestive/Blaze/Html5.hs +3/−6

@@ -1,2 +1,9 @@+# CHANGELOG++- 0.6.2.0 (2017-12-26)+    * Remove path information from Choice input element values+    * Bump `blaze-html` to 0.9+    * Bump `blaze-markup` to 0.8+ - 0.6.1.0     * Remove invalid value attr from file element

@@ -1,5 +1,5 @@ Name:          digestive-functors-blaze-Version:       0.6.1.0+Version:       0.6.2.0 Synopsis:      Blaze frontend for the digestive-functors library Description:   Blaze frontend for the digestive-functors library Homepage:      http://github.com/jaspervdj/digestive-functors@@ -20,8 +20,8 @@   Exposed-modules: Text.Digestive.Blaze.Html5    Build-depends:-    base               >= 4    && < 5,-    blaze-html         >= 0.5  && < 0.9,-    blaze-markup       >= 0.5  && < 0.8,-    digestive-functors >= 0.8  && < 0.9,-    text               >= 0.11 && < 1.3+    base               >= 4     && < 5,+    blaze-html         >= 0.5   && < 0.10,+    blaze-markup       >= 0.5   && < 0.9,+    digestive-functors >= 0.8.3 && < 0.9,+    text               >= 0.11  && < 1.3

@@ -20,8 +20,7 @@  -------------------------------------------------------------------------------- import           Control.Monad               (forM_, when)-import           Data.Maybe                  (fromMaybe)-import           Data.Monoid                 (mappend, mempty)+import           Data.Monoid                 (mempty) import           Data.Text                   (Text) import           Text.Blaze.Html             (Html, (!)) import qualified Text.Blaze.Html5            as H@@ -96,12 +95,11 @@     ! A.id    (H.toValue ref')     ! A.name  (H.toValue ref')     $ forM_ choices $ \(i, c, sel) -> H.option-        !  A.value (value i)+        !  A.value (H.toValue i)         !? (sel, A.selected "selected")         $ c   where     ref'    = absoluteRef ref view-    value i = H.toValue ref' `mappend` "." `mappend` H.toValue i     choices = fieldInputChoice ref view  @@ -111,14 +109,13 @@            -> View Html  -- ^ View            -> Html       -- ^ Resulting HTML inputRadio brs ref view = forM_ choices $ \(i, c, sel) -> do-    let val = value i+    let val = H.toValue i     H.input ! A.type_ "radio" ! A.value val ! A.id val ! A.name (H.toValue ref')         !? (sel, A.checked "checked")     H.label ! A.for val $ c     when brs H.br   where     ref'    = absoluteRef ref view-    value i = H.toValue ref' `mappend` "." `mappend` H.toValue i     choices = fieldInputChoice ref view