Make tests work with GHC 7.4.1 again

This commit is contained in:
Luite Stegeman 2012-02-03 14:33:24 +01:00
parent 6178d1219f
commit 1c3b63b3a1

View File

@ -74,7 +74,7 @@ data MyApp = MyApp
data MySub = MySub data MySub = MySub
instance RenderRoute MySub where instance RenderRoute MySub where
data data
#if MIN_VERSION_base(4,7,0) #if MIN_VERSION_base(4,5,0)
Route Route
#else #else
YRC.Route YRC.Route
@ -89,7 +89,7 @@ getMySub MyApp = MySub
data MySubParam = MySubParam Int data MySubParam = MySubParam Int
instance RenderRoute MySubParam where instance RenderRoute MySubParam where
data data
#if MIN_VERSION_base(4,7,0) #if MIN_VERSION_base(4,5,0)
Route Route
#else #else
YRC.Route YRC.Route