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

Fix tests

Browse Source
This commit is contained in:
Michael Snoyman 2011-05-05 18:19:47 +03:00
parent ff0c907159
commit 2f4cbaa093
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Test/Widget.hs
View File

@ -31,14 +31,14 @@ getRootR = defaultLayout $ addJuliusBody [$julius|<not escaped>|]
getMultiR _ = return ()
data Msg = Hello | Goodbye
instance YesodMessage Y where
type Message Y = Msg
renderMessage _ ("en":_) Hello = "Hello"
renderMessage _ ("es":_) Hello = "Hola"
renderMessage _ ("en":_) Goodbye = "Goodbye"
renderMessage _ ("es":_) Goodbye = "Adios"
renderMessage a (_:xs) y = renderMessage a xs y
renderMessage a [] y = renderMessage a ["en"] y
instance YesodMessage Y Y where
type Message Y Y = Msg
renderMessage _ _ ("en":_) Hello = "Hello"
renderMessage _ _ ("es":_) Hello = "Hola"
renderMessage _ _ ("en":_) Goodbye = "Goodbye"
renderMessage _ _ ("es":_) Goodbye = "Adios"
renderMessage a b (_:xs) y = renderMessage a b xs y
renderMessage a b [] y = renderMessage a b ["en"] y
getWhamletR = defaultLayout [$whamlet|
<h1>Test