more nested instances hacks

1 files changed, 6 insertions, 3 deletions

diff --git a/Build/EvilSplicer.hs b/Build/EvilSplicer.hs
index e25608a3b..f9a508c11 100644
--- a/Build/EvilSplicer.hs
+++ b/Build/EvilSplicer.hs
@@ -496,10 +496,13 @@ mangleCode = flip_colon
 	 -        ^^^^^^^^
 	 - The marked word should not be there.
 	 -
-	 - FIXME: This is a yesod-specific hack, it should look for the
-	 - outer instance.
+	 - FIXME: This is a yesod and persistent-specific hack,
+	 - it should look for the outer instance.
 	 -}
-	nested_instances = replace "  data instance Route" "  data Route" 
+	nested_instances = replace "  data instance Route" "  data Route"
+		. replace "  data instance Unique" "  data Unique"
+		. replace "  data instance EntityField" "  data EntityField"
+		. replace "  type instance PersistEntityBackend" = "  type PersistEntityBackend"
 
 	{- GHC does not properly parenthesise generated data type
 	 - declarations. -}