Comments and white space only
authorSimon Peyton Jones <simonpj@microsoft.com>
Fri, 3 May 2013 13:48:31 +0000 (14:48 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Thu, 6 Jun 2013 13:29:52 +0000 (14:29 +0100)
compiler/cmm/CLabel.hs
compiler/codeGen/StgCmmMonad.hs
compiler/coreSyn/CoreUtils.lhs
compiler/simplCore/SimplUtils.lhs

index 1bcb695..1b86f3d 100644 (file)
@@ -1030,9 +1030,9 @@ pprCLbl (RtsLabel (RtsApFast str))   = ftext str <> ptext (sLit "_fast")
 
 pprCLbl (RtsLabel (RtsSelectorInfoTable upd_reqd offset))
   = hcat [ptext (sLit "stg_sel_"), text (show offset),
-                ptext (if upd_reqd
-                        then (sLit "_upd_info")
-                        else (sLit "_noupd_info"))
+          ptext (if upd_reqd
+                 then (sLit "_upd_info")
+                 else (sLit "_noupd_info"))
         ]
 
 pprCLbl (RtsLabel (RtsSelectorEntry upd_reqd offset))
index 1f3d5c4..c0cd882 100644 (file)
@@ -553,8 +553,8 @@ forkStatics :: FCode a -> FCode a
 -- The Abstract~C returned is attached to the current state, but the
 -- bindings and usage information is otherwise unchanged.
 forkStatics body_code
-  = do        { dflags <- getDynFlags
-              ; info  <- getInfoDown
+  = do  { dflags <- getDynFlags
+        ; info  <- getInfoDown
         ; us    <- newUniqSupply
         ; state <- getState
         ; let   rhs_info_down = info { cgd_statics = cgs_binds state
index 4e45da4..3cdf2a6 100644 (file)
@@ -567,8 +567,8 @@ getIdFromTrivialExpr e = go e
 \end{code}
 
 exprIsBottom is a very cheap and cheerful function; it may return
-False for bottoming expressions, but it never costs much to ask.
-See also CoreArity.exprBotStrictness_maybe, but that's a bit more
+False for bottoming expressions, but it never costs much to ask.  See
+also CoreArity.exprBotStrictness_maybe, but that's a bit more
 expensive.
 
 \begin{code}
index 17da9be..c483f05 100644 (file)
@@ -1126,6 +1126,7 @@ because the latter is not well-kinded.
 \begin{code}
 tryEtaExpand :: SimplEnv -> OutId -> OutExpr -> SimplM (Arity, OutExpr)
 -- See Note [Eta-expanding at let bindings]
+-- and Note [Eta expansion to manifest arity]
 tryEtaExpand env bndr rhs
   = do { dflags <- getDynFlags
        ; (new_arity, new_rhs) <- try_expand dflags