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

IsString SomeMessage instance

Browse Source
This commit is contained in:
Michael Snoyman 2011-08-23 16:43:56 +03:00
parent 48c5d8d42a
commit 9b9b021705
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
yesod-core/Yesod/Message.hs
View File

@ -23,6 +23,8 @@ import Text.Shakespeare.Base (Deref (..), Ident (..), parseHash, derefToExp)
import Text.ParserCombinators.Parsec (parse, many, eof, many1, noneOf, (<|>)) import Text.ParserCombinators.Parsec (parse, many, eof, many1, noneOf, (<|>))
import Control.Arrow ((***)) import Control.Arrow ((***))
import Data.Monoid (mempty, mappend) import Data.Monoid (mempty, mappend)
import qualified Data.Text as T
import Data.String (IsString (fromString))
class ToMessage a where class ToMessage a where
toMessage :: a -> Text toMessage :: a -> Text
@ -252,3 +254,6 @@ parseVar s =
_ -> (s, Nothing) _ -> (s, Nothing)
data SomeMessage master = forall msg. RenderMessage master msg => SomeMessage msg data SomeMessage master = forall msg. RenderMessage master msg => SomeMessage msg
instance IsString (SomeMessage master) where
fromString = SomeMessage . T.pack