X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Fiface%2FIfaceSyn.lhs;h=330a6fc605812fa22134ae08b519222d0b743fe8;hb=35bdec7ae3bc2d0d2d2821bd9145d3b53f0e44e8;hp=e01cc312f60146940316e5b7ab4b2027572ed5ec;hpb=00a259f5e3ceca206b388d02495799dc1e974bf5;p=ghc-hetmet.git

diff --git a/compiler/iface/IfaceSyn.lhs b/compiler/iface/IfaceSyn.lhs
index e01cc31..330a6fc 100644
--- a/compiler/iface/IfaceSyn.lhs
+++ b/compiler/iface/IfaceSyn.lhs
@@ -195,7 +195,7 @@ data IfaceNote = IfaceSCC CostCentre
                | IfaceCoreNote String
 
 type IfaceAlt = (IfaceConAlt, [FastString], IfaceExpr)
-	-- Note: OccName, not IfaceBndr (and same with the case binder)
+	-- Note: FastString, not IfaceBndr (and same with the case binder)
 	-- We reconstruct the kind/type of the thing from the context
 	-- thus saving bulk in interface files