diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2017-03-01 11:29:10 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-03-02 11:31:20 -0500 |
| commit | 537ce41c5373a2e6fa8961f0bdca75e887ac45b7 (patch) | |
| tree | a8baab00e040cdd576cafb0c48748ac29d5087a7 /compiler/typecheck/TcTypeable.hs | |
| parent | fb06bee1c5a0b4d5dfd8e0381ea2a999ca47b84c (diff) | |
| download | haskell-537ce41c5373a2e6fa8961f0bdca75e887ac45b7.tar.gz | |
Typeable: Rename KindRep bindings to $krep...
Diffstat (limited to 'compiler/typecheck/TcTypeable.hs')
| -rw-r--r-- | compiler/typecheck/TcTypeable.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |