From 537ce41c5373a2e6fa8961f0bdca75e887ac45b7 Mon Sep 17 00:00:00 2001 From: Ben Gamari Date: Wed, 1 Mar 2017 11:29:10 -0500 Subject: Typeable: Rename KindRep bindings to $krep... --- compiler/typecheck/TcTypeable.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'compiler/typecheck/TcTypeable.hs') diff --git a/compiler/typecheck/TcTypeable.hs b/compiler/typecheck/TcTypeable.hs index e7fe588f76..b635c196e6 100644 --- a/compiler/typecheck/TcTypeable.hs +++ b/compiler/typecheck/TcTypeable.hs @@ -379,7 +379,7 @@ mkTyConRepBinds stuff@(Stuff {..}) todo (TypeableTyCon {..}) = do -- Place a NOINLINE pragma on KindReps since they tend to be quite large -- and bloat interface files. kind_rep_id <- (`setInlinePragma` neverInlinePragma) - <$> newSysLocalId (fsLit "krep") (mkTyConTy kindRepTyCon) + <$> newSysLocalId (fsLit "$krep") (mkTyConTy kindRepTyCon) kind_rep <- mkTyConKindRep stuff tycon tycon_kind tycon_rep_rhs <- mkTyConRepTyConRHS stuff todo tycon kind_rep_id -- cgit v1.2.1