devforms 0.2.0.1 → 0.2.0.2
raw patch · 3 files changed
+11/−13 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- devforms.cabal +1/−1
- src/Form.hs +5/−6
- src/Server.hs +5/−6
devforms.cabal view
@@ -1,6 +1,6 @@ cabal-version: 3.0 name: devforms-version: 0.2.0.1+version: 0.2.0.2 synopsis: A builder DSL for HTML survey forms with built-in server and storage description: devforms is a Haskell library for building HTML survey forms using a
src/Form.hs view
@@ -12,12 +12,11 @@ renderForm :: Form -> Html () renderForm form@Form{title, questions} = do- main_ $ do- h2_ $ toHtml title- validationEnhancer_ $- form_ [hxPost_ $ getSubmitUrl form, script_ "on keydown[key is 'Enter'] from <input/> halt"] $ do- forM_ (reverse questions) renderQuestion- input_ [type_ "submit"]+ h2_ $ toHtml title+ validationEnhancer_ $+ form_ [hxPost_ $ getSubmitUrl form, script_ "on keydown[key is 'Enter'] from <input/> halt"] $ do+ forM_ (reverse questions) renderQuestion+ input_ [type_ "submit"] validationEnhancer_ :: Html () -> Html () validationEnhancer_ = term "validation-enhancer"
src/Server.hs view
@@ -86,11 +86,14 @@ instance JSON.ToJSON ServerLog page :: Html () -> Html ()-page mainContent =+page mainContent = do+ doctype_ html_ ( do head_ ( do+ meta_ [charset_ "utf-8"]+ meta_ [name_ "viewport", content_ "width=device-width, initial-scale=1"] script_ [src_ "static/htmx.min.js"] ("" :: String) script_ [src_ "static/_hyperscript.min.js"] ("" :: String) script_ [type_ "module", src_ "static/validation-enhancer.min.js"] ("" :: String)@@ -139,10 +142,6 @@ body_ ( do- main_- ( do- nav_ $ pure ()- mainContent- )+ main_ mainContent ) )