digestive-functors-heist 0.8.7.0 → 0.8.8.0

raw patch · 4 files changed

+24/−26 lines, 4 filesdep ~digestive-functorsPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: digestive-functors

API changes (from Hackage documentation)

Files

• CHANGELOG +5/−0
• digestive-functors-heist.cabal +9/−9
• src/Text/Digestive/Heist.hs +5/−9
• src/Text/Digestive/Heist/Compiled.hs +5/−8

@@ -1,3 +1,8 @@+# CHANGELOG++- 0.8.8.0 (2017-12-26)+    * Remove path information from Choice input element values+ - 0.8.7.0     * Bump heist dependency to 1.0 

@@ -1,5 +1,5 @@ Name:          digestive-functors-heist-Version:       0.8.7.0+Version:       0.8.8.0 Synopsis:      Heist frontend for the digestive-functors library Description:   Heist frontend for the digestive-functors library Homepage:      http://github.com/jaspervdj/digestive-functors@@ -22,11 +22,11 @@     Text.Digestive.Heist.Compiled    Build-depends:-    base               >= 4    && < 5,-    blaze-builder      >= 0.3  && < 0.5,-    digestive-functors >= 0.8  && < 0.9,-    heist              >= 0.13 && < 1.1,-    map-syntax         >= 0.2  && < 0.3,-    mtl                >= 2    && < 2.3,-    text               >= 0.11 && < 1.3,-    xmlhtml            >= 0.1  && < 0.3+    base               >= 4     && < 5,+    blaze-builder      >= 0.3   && < 0.5,+    digestive-functors >= 0.8.3 && < 0.9,+    heist              >= 0.13  && < 1.1,+    map-syntax         >= 0.2   && < 0.3,+    mtl                >= 2     && < 2.3,+    text               >= 0.11  && < 1.3,+    xmlhtml            >= 0.1   && < 0.3

@@ -59,7 +59,6 @@ import           Data.List             (unionBy) import           Data.Map.Syntax       ((##)) import           Data.Maybe            (fromMaybe)-import           Data.Monoid           (mappend) import           Data.Text             (Text) import qualified Data.Text             as T import           Heist@@ -220,10 +219,9 @@     let ref'     = absoluteRef ref view         choices  = fieldInputChoice ref view         kids     = map makeOption choices-        value i  = ref' `mappend` "." `mappend` i          makeOption (i, c, sel) = X.Element "option"-            (attr sel ("selected", "selected") [("value", value i)])+            (attr sel ("selected", "selected") [("value", i)])             [X.TextNode c]      return $ makeElement "select" kids $ addAttrs attrs $ setDisabled ref view@@ -240,12 +238,11 @@     let ref'     = absoluteRef ref view         choices  = fieldInputChoiceGroup ref view         kids     = map makeGroup choices-        value i  = ref' `mappend` "." `mappend` i          makeGroup (name, options) = X.Element "optgroup"             [("label", name)] $ map makeOption options         makeOption (i, c, sel) = X.Element "option"-            (attr sel ("selected", "selected") [("value", value i)])+            (attr sel ("selected", "selected") [("value", i)])             [X.TextNode c]      return $ makeElement "select" kids $ addAttrs attrs $ setDisabled ref view@@ -263,14 +260,13 @@     let ref'     = absoluteRef ref view         choices  = fieldInputChoice ref view         kids     = concatMap makeOption choices-        value i  = ref' `mappend` "." `mappend` i          makeOption (i, c, sel) =-            [ X.Element "label" [("for", value i)]+            [ X.Element "label" [("for", i)]               [ X.Element "input"                   (attr sel ("checked", "checked") $ addAttrs attrs-                      [ ("type", "radio"), ("value", value i)-                      , ("id", value i), ("name", ref')+                      [ ("type", "radio"), ("value", i)+                      , ("id", i), ("name", ref')                       ]) []               , X.TextNode c]             ]

@@ -351,10 +351,9 @@     let ref'     = absoluteRef ref view         choices  = fieldInputChoice ref view         kids     = map makeOption choices-        value i  = ref' <> "." <> i          makeOption (i, c, sel) = X.Element "option"-            (attr sel ("selected", "selected") [("value", value i)])+            (attr sel ("selected", "selected") [("value", i)])             [X.TextNode c]          e = makeElement "select" kids $ addAttrs attrs@@ -371,12 +370,11 @@     let ref'     = absoluteRef ref view         choices  = fieldInputChoiceGroup ref view         kids     = map makeGroup choices-        value i  = ref' <> "." <> i          makeGroup (name, options) = X.Element "optgroup"             [("label", name)] $ map makeOption options         makeOption (i, c, sel) = X.Element "option"-            (attr sel ("selected", "selected") [("value", value i)])+            (attr sel ("selected", "selected") [("value", i)])             [X.TextNode c]          e = makeElement "select" kids $ addAttrs attrs@@ -393,15 +391,14 @@     let ref'     = absoluteRef ref view         choices  = fieldInputChoice ref view         kids     = concatMap makeOption choices-        value i  = ref' <> "." <> i          makeOption (i, c, sel) =             [ X.Element "input"                 (attr sel ("checked", "checked") $ addAttrs attrs-                    [ ("type", "radio"), ("value", value i)-                    , ("id", value i), ("name", ref')+                    [ ("type", "radio"), ("value", i)+                    , ("id", i), ("name", ref')                     ]) []-            , X.Element "label" [("for", value i)] [X.TextNode c]+            , X.Element "label" [("for", i)] [X.TextNode c]             ]      return $ X.renderHtmlFragment X.UTF8 kids