yesod-text-markdown 0.1.6 → 0.1.7

raw patch · 2 files changed

+3/−3 lines, 2 files

Files

• Yesod/Text/Markdown.hs +2/−2
• yesod-text-markdown.cabal +1/−1

@@ -37,9 +37,9 @@ markdownField :: (Monad m, RenderMessage (HandlerSite m) FormMessage) => Field m Markdown markdownField = Field     { fieldParse = parseHelper $ Right . Markdown . fromStrict-    , fieldView = \theId name attrs val _isReq -> toWidget+    , fieldView = \theId name attrs val isReq -> toWidget         [hamlet|$newline never-<textarea id="#{theId}" name="#{name}" *{attrs}>#{either id extractStrict val}+<textarea id="#{theId}" name="#{name}" :isReq:required="" *{attrs}>#{either id extractStrict val} |]    , fieldEnctype = UrlEncoded -- I choose UrlEncoded because textareaField is      }

@@ -1,5 +1,5 @@ name:                yesod-text-markdown-version:             0.1.6+version:             0.1.7 synopsis:            Yesod support for Text.Markdown. description:         Use Text.Markdown in a typical yesod project.                      This module contains instances related to persistence,