From 87c75eddaca70a515ce8778762a17917cfa8f966 Mon Sep 17 00:00:00 2001 From: Luite Stegeman Date: Fri, 3 Feb 2012 06:32:41 +0100 Subject: [PATCH] Fix for TypeFamilies changes in newer GHC --- yesod-routes/test/main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/yesod-routes/test/main.hs b/yesod-routes/test/main.hs index 33e03997..17ff0d6a 100644 --- a/yesod-routes/test/main.hs +++ b/yesod-routes/test/main.hs @@ -72,7 +72,7 @@ data MyApp = MyApp data MySub = MySub instance RenderRoute MySub where - data YRC.Route MySub = MySubRoute ([Text], [(Text, Text)]) + data Route MySub = MySubRoute ([Text], [(Text, Text)]) deriving (Show, Eq, Read) renderRoute (MySubRoute x) = x @@ -81,7 +81,7 @@ getMySub MyApp = MySub data MySubParam = MySubParam Int instance RenderRoute MySubParam where - data YRC.Route MySubParam = ParamRoute Char + data Route MySubParam = ParamRoute Char deriving (Show, Eq, Read) renderRoute (ParamRoute x) = ([singleton x], [])