From 2f4cbaa093e9511f177ed18698cec04f42687264 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 5 May 2011 18:19:47 +0300
Subject: [PATCH] Fix tests

---
 Test/Widget.hs | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/Test/Widget.hs b/Test/Widget.hs
index 17116db8..dd65f220 100644
--- a/Test/Widget.hs
+++ b/Test/Widget.hs
@@ -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