suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Corrected a mistake in the last patch

Browse Source
This commit is contained in:
Neil Brown 2009-04-08 16:34:04 +00:00
parent 6814ac2679
commit cc4720832b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pregen/GenOrdAST.hs
View File

@ -58,7 +58,7 @@ ordFor' typeName x = process $ map processConstr $ dataTypeConstrs $ dataTypeOf
++ concat [ [ " compare (" ++ name ++ headL ++ ") (" ++ name ++ headR ++ ") = " ++ ++ concat [ [ " compare (" ++ name ++ headL ++ ") (" ++ name ++ headR ++ ") = " ++
--Shortcut: --Shortcut:
if null comparisons then "EQ" else if null comparisons then "EQ" else
"combineCompare [" ++ joinWith "," comparisons) ++ "]" "combineCompare [" ++ joinWith "," comparisons ++ "]"
] ++ if isLast then [] else ] ++ if isLast then [] else
[ " compare (" ++ name ++ " {}) _ = LT" [ " compare (" ++ name ++ " {}) _ = LT"
, " compare _ (" ++ name ++ " {}) = GT"] , " compare _ (" ++ name ++ " {}) = GT"]