From 9b9b0217057ea51d169e79803d8fc06b5a03582b Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Tue, 23 Aug 2011 16:43:56 +0300 Subject: [PATCH] IsString SomeMessage instance --- yesod-core/Yesod/Message.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/yesod-core/Yesod/Message.hs b/yesod-core/Yesod/Message.hs index 49db5015..b84f3e86 100644 --- a/yesod-core/Yesod/Message.hs +++ b/yesod-core/Yesod/Message.hs @@ -23,6 +23,8 @@ import Text.Shakespeare.Base (Deref (..), Ident (..), parseHash, derefToExp) import Text.ParserCombinators.Parsec (parse, many, eof, many1, noneOf, (<|>)) import Control.Arrow ((***)) import Data.Monoid (mempty, mappend) +import qualified Data.Text as T +import Data.String (IsString (fromString)) class ToMessage a where toMessage :: a -> Text @@ -252,3 +254,6 @@ parseVar s = _ -> (s, Nothing) data SomeMessage master = forall msg. RenderMessage master msg => SomeMessage msg + +instance IsString (SomeMessage master) where + fromString = SomeMessage . T.pack