yesod-text-markdown 0.1.4 → 0.1.5

raw patch · 2 files changed

+12/−1 lines, 2 filesdep +aeson

Dependencies added: aeson

Files

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

@@ -15,6 +15,9 @@ import Data.Text.Lazy (toStrict, fromStrict) import Text.Markdown (Markdown (Markdown)) import Database.Persist.Sql+import Control.Applicative ((<$>))+import Control.Monad (mzero)+import Data.Aeson  instance PersistField Markdown where   toPersistValue (Markdown t) = PersistText $ toStrict t@@ -23,6 +26,13 @@  instance PersistFieldSql Markdown where     sqlType _ = SqlString++instance ToJSON Markdown where+  toJSON (Markdown text) = object ["markdown" .= text]++instance FromJSON Markdown where+  parseJSON (Object v) = Markdown <$> v .: "markdown"+  parseJSON _ = mzero  markdownField :: (Monad m, RenderMessage (HandlerSite m) FormMessage) => Field m Markdown markdownField = Field

@@ -1,5 +1,5 @@ name:                yesod-text-markdown-version:             0.1.4+version:             0.1.5 synopsis:            Yesod support for Text.Markdown. description:         Use Text.Markdown in a typical yesod project.                      This module contains instances related to persistence,@@ -41,6 +41,7 @@                    , persistent           >= 1.2  && < 2.0                    , text                 >= 0.11 && < 2.0                    , shakespeare          >= 2.0  && < 2.1+                   , aeson                >= 0.7  && < 0.9   ghc-options: -Wall -fno-warn-orphans  source-repository head