diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-05-25 19:07:51 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-05-25 20:47:26 +0100 |
| commit | a5f5a70c41b4bce2715bf5d478171fbaf060cddf (patch) | |
| tree | e9be157af01bcb2c9a4ac51e01d3b9c71c0d4307 /compiler/coreSyn/CoreSyn.lhs | |
| parent | ea3a9edda14f952042fa262abd37cc4fa0c1dd6d (diff) | |
| download | haskell-sdoc.tar.gz | |
More DynFlags + SDocsdoc
Diffstat (limited to 'compiler/coreSyn/CoreSyn.lhs')
| -rw-r--r-- | compiler/coreSyn/CoreSyn.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/coreSyn/CoreSyn.lhs b/compiler/coreSyn/CoreSyn.lhs index e754c6dda5..79c0d7e092 100644 --- a/compiler/coreSyn/CoreSyn.lhs +++ b/compiler/coreSyn/CoreSyn.lhs @@ -821,7 +821,7 @@ cmpAltCon (DataAlt _) DEFAULT = GT cmpAltCon (LitAlt l1) (LitAlt l2) = l1 `compare` l2 cmpAltCon (LitAlt _) DEFAULT = GT -cmpAltCon con1 con2 = WARN( True, text "Comparing incomparable AltCons" <+> +cmpAltCon con1 con2 = WARN( dflags, True, text "Comparing incomparable AltCons" <+> ppr con1 <+> ppr con2 ) LT \end{code} |