haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added a ToValue instance for Enctype

Browse Source
This commit is contained in:
Andrew Martin 2016-11-13 14:59:21 -05:00
parent cc395c2ecf
commit 2d6e5cea02
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
yesod-form/Yesod/Form/Types.hs
View File

@ -24,7 +24,7 @@ module Yesod.Form.Types
import Control.Monad.Trans.RWS (RWST) import Control.Monad.Trans.RWS (RWST)
import Data.Text (Text) import Data.Text (Text)
import Data.Monoid (Monoid (..)) import Data.Monoid (Monoid (..))
import Text.Blaze (Markup, ToMarkup (toMarkup)) import Text.Blaze (Markup, ToMarkup (toMarkup), ToValue (toValue))
#define Html Markup #define Html Markup
#define ToHtml ToMarkup #define ToHtml ToMarkup
#define toHtml toMarkup #define toHtml toMarkup
@ -85,6 +85,9 @@ data Enctype = UrlEncoded | Multipart
instance ToHtml Enctype where instance ToHtml Enctype where
toHtml UrlEncoded = "application/x-www-form-urlencoded" toHtml UrlEncoded = "application/x-www-form-urlencoded"
toHtml Multipart = "multipart/form-data" toHtml Multipart = "multipart/form-data"
instance ToValue Enctype where
toValue UrlEncoded = "application/x-www-form-urlencoded"
toValue Multipart = "multipart/form-data"
instance Monoid Enctype where instance Monoid Enctype where
mempty = UrlEncoded mempty = UrlEncoded
mappend UrlEncoded UrlEncoded = UrlEncoded mappend UrlEncoded UrlEncoded = UrlEncoded