Comments and white space only
authorSimon Peyton Jones <simonpj@microsoft.com>
Sun, 27 Nov 2011 19:43:00 +0000 (19:43 +0000)
committerSimon Peyton Jones <simonpj@microsoft.com>
Sun, 27 Nov 2011 19:43:00 +0000 (19:43 +0000)
compiler/stranal/WorkWrap.lhs
compiler/typecheck/TcInstDcls.lhs

index 230c428..2c36588 100644 (file)
@@ -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!
 
index dbed0d3..6e57ff4 100644 (file)
@@ -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