Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/878206f9bd64e5e6f35851dab2c413e6fdab0012 >--------------------------------------------------------------- commit 878206f9bd64e5e6f35851dab2c413e6fdab0012 Author: Simon Peyton Jones <[email protected]> Date: Sun Nov 27 19:43:00 2011 +0000 Comments and white space only >--------------------------------------------------------------- compiler/stranal/WorkWrap.lhs | 4 ++-- compiler/typecheck/TcInstDcls.lhs | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/stranal/WorkWrap.lhs b/compiler/stranal/WorkWrap.lhs index 230c428..2c36588 100644 --- a/compiler/stranal/WorkWrap.lhs +++ b/compiler/stranal/WorkWrap.lhs @@ -296,8 +296,8 @@ checkSize :: Id -> CoreExpr checkSize fn_id rhs thing_inside | isStableUnfolding (realIdUnfolding fn_id) = return [ (fn_id, rhs) ] - -- See Note [Don't w/w INLINABLE things] - -- and Note [Don't w/w INLINABLABLE things] + -- See Note [Don't w/w INLINE things] + -- and Note [Don't w/w INLINABLE things] -- NB: use realIdUnfolding because we want to see the unfolding -- even if it's a loop breaker! diff --git a/compiler/typecheck/TcInstDcls.lhs b/compiler/typecheck/TcInstDcls.lhs index dbed0d3..6e57ff4 100644 --- a/compiler/typecheck/TcInstDcls.lhs +++ b/compiler/typecheck/TcInstDcls.lhs @@ -1002,7 +1002,7 @@ tcInstanceMethods dfun_id clas tyvars dfun_ev_vars inst_tys ; dm_id <- tcLookupId dm_name ; let dm_inline_prag = idInlinePragma dm_id rhs = HsWrap (mkWpEvVarApps [self_dict] <.> mkWpTyApps inst_tys) $ - HsVar dm_id + HsVar dm_id meth_bind = mkVarBind local_meth_id (L loc rhs) meth_id1 = meth_id `setInlinePragma` dm_inline_prag _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
