summaryrefslogtreecommitdiff
path: root/compiler/coreSyn/CoreMap.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/coreSyn/CoreMap.hs')
-rw-r--r--compiler/coreSyn/CoreMap.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/coreSyn/CoreMap.hs b/compiler/coreSyn/CoreMap.hs
index 3d0693466a..d50dcbf1bc 100644
--- a/compiler/coreSyn/CoreMap.hs
+++ b/compiler/coreSyn/CoreMap.hs
@@ -133,7 +133,7 @@ Note [Empty case alternatives]
* For a key (Case e b ty []) we MUST look at the return type 'ty', because
otherwise (Case (error () "urk") _ Int []) would compare equal to
(Case (error () "urk") _ Bool [])
- which is utterly wrong (Trac #6097)
+ which is utterly wrong (#6097)
We could compare the return type regardless, but the wildly common case
is that it's unnecessary, so we have two fields (cm_case and cm_ecase)