digestive-functors-blaze 0.3.0.0 → 0.3.0.1

raw patch · 2 files changed

+12/−16 lines, 2 filesdep ~digestive-functorsPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: digestive-functors

API changes (from Hackage documentation)

Files

• digestive-functors-blaze.cabal +5/−5
• src/Text/Digestive/Blaze/Html5.hs +7/−11

@@ -1,5 +1,5 @@ Name:          digestive-functors-blaze-Version:       0.3.0.0+Version:       0.3.0.1 Synopsis:      Blaze frontend for the digestive-functors library Description:   Blaze frontend for the digestive-functors library Homepage:      http://github.com/jaspervdj/digestive-functors@@ -17,7 +17,7 @@   Exposed-modules: Text.Digestive.Blaze.Html5    Build-depends:-    base               >= 4    && < 5,-    digestive-functors >= 0.3  && < 0.4,-    blaze-html         >= 0.4  && < 0.6,-    text               >= 0.11 && < 0.12+    base               >= 4       && < 5,+    digestive-functors >= 0.3.0.1 && < 0.4,+    blaze-html         >= 0.4     && < 0.6,+    text               >= 0.11    && < 0.12

@@ -24,23 +24,12 @@ import qualified Text.Blaze.Html5 as H import qualified Text.Blaze.Html5.Attributes as A -import Text.Digestive.Types import Text.Digestive.View  (!?) :: H.Attributable h => h -> (Bool, H.Attribute) -> h (!?) h (False, _) = h (!?) h (True,  a) = h ! a -absoluteRef :: Text -> View v -> Text-absoluteRef ref view = fromPath $ absolutePath ref view--label :: Text -> View v -> Html -> Html-label ref view value = H.label-    ! A.for (H.toValue ref')-    $ value-  where-    ref' = absoluteRef ref view- inputText :: Text -> View v -> Html inputText ref view = H.input     ! A.type_ "text"@@ -136,6 +125,13 @@ inputSubmit value = H.input     ! A.type_ "submit"     ! A.value (H.toValue value)++label :: Text -> View v -> Html -> Html+label ref view value = H.label+    ! A.for (H.toValue ref')+    $ value+  where+    ref' = absoluteRef ref view  form :: View Html -> Text -> Html -> Html form view action = H.form