ditto-lucid 0.1.0.3 → 0.1.0.4

raw patch · 2 files changed

+5/−5 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ditto-lucid.cabal +1/−1
• src/Ditto/Lucid.hs +4/−4

@@ -1,5 +1,5 @@ Name:                ditto-lucid-Version:             0.1.0.3+Version:             0.1.0.4 Synopsis:            Add support for using lucid with Ditto Description:         Ditto is a library for building and validating forms using applicative functors. This package add support for using ditto with lucid. License:             BSD3

@@ -20,7 +20,7 @@   toPathPiece fid = T.pack (show fid)   fromPathPiece fidT = Nothing --- | create @\<form action=action method=\"GET\" enctype=\"multipart/form-data\"\>@+-- | create @\<form action=action method=\"GET\" enctype=\"application/xxx-form-urlencoded\"\>@ formGenGET   :: (Applicative m)   => Text -- ^ action url@@ -28,13 +28,13 @@   -> HtmlT m b   -> HtmlT m b formGenGET action hidden children = do-  form_ [action_ action, method_ "GET", enctype_ "multipart/form-data"] $+  form_ [action_ action, method_ "GET", enctype_ "application/xxx-form-urlencoded"] $     traverse_ mkHidden hidden *>     children   where     mkHidden (name, value) = input_ [type_ "hidden", name_ name, value_ value] --- | create @\<form action=action method=\"POST\" enctype=\"multipart/form-data\"\>@+-- | create @\<form action=action method=\"POST\" enctype=\"application/xxx-form-urlencoded\"\>@ formGenPOST   :: (Applicative m)   => Text -- ^ action url@@ -42,7 +42,7 @@   -> HtmlT m b   -> HtmlT m b formGenPOST action hidden children = do-  form_ [action_ action, method_ "POST", enctype_ "multipart/form-data"] $+  form_ [action_ action, method_ "POST", enctype_ "application/xxx-form-urlencoded"] $     traverse_ mkHidden hidden *>     children   where