From cc4720832b657e845358ef00d563758cdc1a728e Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Wed, 8 Apr 2009 16:34:04 +0000
Subject: [PATCH] Corrected a mistake in the last patch

---
 pregen/GenOrdAST.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pregen/GenOrdAST.hs b/pregen/GenOrdAST.hs
index 773a43c..1216ec3 100644
--- a/pregen/GenOrdAST.hs
+++ b/pregen/GenOrdAST.hs
@@ -58,7 +58,7 @@ ordFor' typeName x = process $ map processConstr $ dataTypeConstrs $ dataTypeOf
       ++ concat [ [ "  compare (" ++ name ++ headL ++ ") (" ++ name ++ headR ++ ") = " ++
                     --Shortcut:
                     if null comparisons then "EQ" else
-                      "combineCompare [" ++ joinWith "," comparisons) ++ "]"
+                      "combineCompare [" ++ joinWith "," comparisons ++ "]"
                   ] ++ if isLast then [] else
                   [ "  compare (" ++ name ++ " {}) _ = LT"
                   , "  compare _ (" ++ name ++ " {}) = GT"]