From 2d6e5cea024da3ecd2fdb85a7e986edc9451a5ef Mon Sep 17 00:00:00 2001 From: Andrew Martin Date: Sun, 13 Nov 2016 14:59:21 -0500 Subject: [PATCH] Added a ToValue instance for Enctype --- yesod-form/Yesod/Form/Types.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/yesod-form/Yesod/Form/Types.hs b/yesod-form/Yesod/Form/Types.hs index 543419fa..65e4d5f8 100644 --- a/yesod-form/Yesod/Form/Types.hs +++ b/yesod-form/Yesod/Form/Types.hs @@ -24,7 +24,7 @@ module Yesod.Form.Types import Control.Monad.Trans.RWS (RWST) import Data.Text (Text) import Data.Monoid (Monoid (..)) -import Text.Blaze (Markup, ToMarkup (toMarkup)) +import Text.Blaze (Markup, ToMarkup (toMarkup), ToValue (toValue)) #define Html Markup #define ToHtml ToMarkup #define toHtml toMarkup @@ -85,6 +85,9 @@ data Enctype = UrlEncoded | Multipart instance ToHtml Enctype where toHtml UrlEncoded = "application/x-www-form-urlencoded" 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 mempty = UrlEncoded mappend UrlEncoded UrlEncoded = UrlEncoded