yesod-markdown 0.3.3 → 0.3.4

raw patch · 2 files changed

+2/−9 lines, 2 files

Files

• Yesod/Markdown.hs +1/−8
• yesod-markdown.cabal +1/−1

@@ -1,4 +1,3 @@-{-# LANGUAGE CPP                        #-} {-# LANGUAGE QuasiQuotes                #-} {-# LANGUAGE TypeFamilies               #-} {-# LANGUAGE OverloadedStrings          #-}@@ -32,12 +31,6 @@   )   where -#if __GLASGOW_HASKELL__ >= 700-#define HAMLET hamlet-#else-#define HAMLET $hamlet-#endif- import Yesod.Form (ToField(..), areq, aopt) import Yesod.Core (RenderMessage, SomeMessage(..)) import Yesod.Form.Types@@ -68,7 +61,7 @@ markdownField = Field     { fieldParse = blank $ Right . Markdown . unlines . lines' . T.unpack     , fieldView  = \theId name theClass val _isReq -> addHamlet-        [HAMLET|\+        [hamlet| <textarea id="#{theId}" name="#{name}" :not (null theClass):class="#{T.intercalate " " theClass}">#{either id unMarkdown val} |]      }

@@ -1,5 +1,5 @@ name:                yesod-markdown-version:             0.3.3+version:             0.3.4 synopsis:            Tools for using markdown in a yesod application description:         A subset of pandoc functionality useful for markdown processing in yesod applications homepage:            http://github.com/pbrisbin/yesod-markdown