[fix data derving for new versions of ghc
John Meacham <john@repetae.net>**20051103105238] {
hunk ./src/UserRulesGeneric.hs 26
-namesupply   = [text [x,y] | x <- ['a' .. 'z'], 
+namesupply   = [text [x,y] | x <- ['a' .. 'z'],
hunk ./src/UserRulesGeneric.hs 31
-  in thisns: mknss cs rest 
+  in thisns: mknss cs rest
hunk ./src/UserRulesGeneric.hs 58
-typeablefn  dat  
+typeablefn  dat
hunk ./src/UserRulesGeneric.hs 61
-	[ text "typeOf x = mkAppTy"  <+> 
-	  tcname <+> 
-	  text "[" <+> hcat (sepWith comma (map getV' (vars dat))) <+> text "]" $$ 
-	  wheres ]) 
+	[ text "typeOf x = mkTyConApp"  <+>
+	  tcname <+>
+	  text "[" <+> hcat (sepWith comma (map getV' (vars dat))) <+> text "]" $$
+	  wheres ])
hunk ./src/UserRulesGeneric.hs 71
-      getV var 
+      getV var
hunk ./src/UserRulesGeneric.hs 75
-where_decls [] = empty 
+where_decls [] = empty
hunk ./src/UserRulesGeneric.hs 79
-dyntermfn dat = instanceheader "Term" dat $$ block [ 
+dyntermfn dat = instanceheader "Term" dat $$ block [
hunk ./src/UserRulesGeneric.hs 84
-	    g cv c = text "g" <+> ppCons underscores c <+> text "xs" <+> 
---		text "|" <+> mkList (vrs c cv) <+> text "<- TermRep.fArgs xs" <+> equals <+> text "toDyn" <+> parens (parens (text (constructor c) <+> hsep (map h (vrs c cv))) <> text "::a" ) 
+	    g cv c = text "g" <+> ppCons underscores c <+> text "xs" <+>
+--		text "|" <+> mkList (vrs c cv) <+> text "<- TermRep.fArgs xs" <+> equals <+> text "toDyn" <+> parens (parens (text (constructor c) <+> hsep (map h (vrs c cv))) <> text "::a" )
hunk ./src/UserRulesGeneric.hs 93
-    
+
hunk ./src/UserRulesGeneric.hs 95
--- begin observable 
+-- begin observable
hunk ./src/UserRulesGeneric.hs 98
-observablefn  dat = 
+observablefn  dat =
hunk ./src/UserRulesGeneric.hs 102
-  instanceheader "Observable" dat $$ 
+  instanceheader "Observable" dat $$
hunk ./src/UserRulesGeneric.hs 105
-observefn cv c = 
+observefn cv c =
hunk ./src/UserRulesGeneric.hs 114
--- begin of ATermConvertible derivation 
+-- begin of ATermConvertible derivation
hunk ./src/UserRulesGeneric.hs 118
-  = instanceSkeleton "ATermConvertible" 
+  = instanceSkeleton "ATermConvertible"
hunk ./src/UserRulesGeneric.hs 121
-      ] 
+      ]
hunk ./src/UserRulesGeneric.hs 126
-    in text "toATerm" <+> 
+    in text "toATerm" <+>
hunk ./src/UserRulesGeneric.hs 131
-       text "[" <+> 
-       hcat (intersperse (text ",") (map childToATerm cvs)) <+> 
+       text "[" <+>
+       hcat (intersperse (text ",") (map childToATerm cvs)) <+>
hunk ./src/UserRulesGeneric.hs 141
-    in text "fromATerm" <+> 
+    in text "fromATerm" <+>
hunk ./src/UserRulesGeneric.hs 144
-       text "[" <+> 
-       hcat (intersperse (text ",") cvs) <+> 
+       text "[" <+>
+       hcat (intersperse (text ",") cvs) <+>
hunk ./src/UserRulesGeneric.hs 158
--- begin of HFoldable derivation 
+-- begin of HFoldable derivation
hunk ./src/UserRulesGeneric.hs 162
-  = instanceSkeleton "HFoldable" 
+  = instanceSkeleton "HFoldable"
hunk ./src/UserRulesGeneric.hs 165
-      ] 
+      ]
hunk ./src/UserRulesGeneric.hs 170
-    in text "hfoldr'" <+> 
+    in text "hfoldr'" <+>
hunk ./src/UserRulesGeneric.hs 174
-       foldl (\rest var -> text "hcons alg" <+> var  <+> parens rest) 
+       foldl (\rest var -> text "hcons alg" <+> var  <+> parens rest)
hunk ./src/UserRulesGeneric.hs 176
-             cvs 
+             cvs
hunk ./src/UserRulesGeneric.hs 180
-  
+
hunk ./src/UserRulesGeneric.hs 183
-    in text "conOf" <+> 
+    in text "conOf" <+>
}
