[fix deriving rules for read/show when it comes to labels
John Meacham <john@repetae.net>**20120220044322
 Ignore-this: 20c9c89ae066716fe3ec8eb4d37c6034
] hunk ./src/DerivingDrift/Drift.hs 19
-    hsMod = case snd $ runParser parse (unlines ss)  of
+    hsMod = case snd $ runParser parse ss  of
hunk ./src/DerivingDrift/Drift.hs 21
-        ParseFailed sl err -> error $ "driftDerive: " ++ show sl ++ err
-    ss = [ n | Just n <- map driftDerive' $ hsModuleDecls hsModule, any (not . isSpace) n ]
+        ParseFailed sl err -> error $ "internal parse error(driftDerive): " ++ show sl ++ err  ++ "\n" ++ ss
+    ss = unlines [ n | Just n <- map driftDerive' $ hsModuleDecls hsModule, any (not . isSpace) n ]
hunk ./src/DerivingDrift/StandardRules.hs 114
-	b' = zipWith (\x l -> fsep[showString l,comp,showChar '=',comp,x])
+	b' = zipWith (\x l -> fsep [showString l, comp, showString " = ", comp, x])
hunk ./src/DerivingDrift/StandardRules.hs 146
-			fsep [tup (text $ show lab) ip,lex],
+			fsep [tup (tshow $ show (toUnqualified lab)) ip,lex],
hunk ./src/DerivingDrift/StandardRules.hs 165
-	tup x y = parens $ fsep [text (u dc_Pair), x, y]
+	tup x y = parens $ fsep [x <> char ',', y]
hunk ./src/DerivingDrift/StandardRules.hs 170
+
+tshow x = text (show x)