diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-11-27 19:43:00 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-11-27 19:43:00 +0000 |
| commit | 878206f9bd64e5e6f35851dab2c413e6fdab0012 (patch) | |
| tree | f5aa0927f4b919030e50ff47c688dab85db7a987 | |
| parent | f7cf3dcd66d6a096401f187b3a138eca98113286 (diff) | |
| download | haskell-878206f9bd64e5e6f35851dab2c413e6fdab0012.tar.gz | |
Comments and white space only
| -rw-r--r-- | compiler/stranal/WorkWrap.lhs | 4 | ||||
| -rw-r--r-- | 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 230c42808c..2c365887bc 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 dbed0d3bfc..6e57ff4b4b 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 |