White space only
authorSimon Peyton Jones <simonpj@microsoft.com>
Fri, 2 Mar 2012 16:33:25 +0000 (16:33 +0000)
committerSimon Peyton Jones <simonpj@microsoft.com>
Fri, 2 Mar 2012 16:33:25 +0000 (16:33 +0000)
compiler/cmm/Cmm.hs
compiler/cmm/MkGraph.hs
compiler/types/Unify.lhs
compiler/utils/ListSetOps.lhs

index 93a1dc1..63c3a90 100644 (file)
@@ -137,7 +137,7 @@ data ProfilingInfo
 -- we add a label for the table, and expect only the 'offset/length' form
 
 data C_SRT = NoC_SRT
-          | C_SRT !CLabel !WordOff !StgHalfWord {-bitmap or escape-}
+           | C_SRT !CLabel !WordOff !StgHalfWord {-bitmap or escape-}
            deriving (Eq)
 
 needsSRT :: C_SRT -> Bool
index 3badef7..b63cae5 100644 (file)
@@ -350,7 +350,7 @@ copyOutOflow conv transfer area@(CallArea a) actuals updfr_off
 
     (setRA, init_offset) =
       case a of Young id -> id `seq` -- Generate a store instruction for
-                                    -- the return address if making a call
+                                     -- the return address if making a call
                   if transfer == Call then
                     ([(CmmLit (CmmBlock id), StackParam init_offset)],
                      widthInBytes wordWidth)
index 7d648ae..68a61fd 100644 (file)
@@ -156,9 +156,6 @@ match :: MatchEnv   -- For the most part this is pushed downwards
                        --      in-scope set of the RnEnv2
       -> Type -> Type  -- Template and target respectively
       -> Maybe TvSubstEnv
--- This matcher works on core types; that is, it ignores PredTypes
--- Watch out if newtypes become transparent agin!
---     this matcher must respect newtypes
 
 match menv subst ty1 ty2 | Just ty1' <- coreView ty1 = match menv subst ty1' ty2
                         | Just ty2' <- coreView ty2 = match menv subst ty1 ty2'
index 2c6c6b0..110ba77 100644 (file)
@@ -24,9 +24,9 @@ module ListSetOps (
         hasNoDups, runs, removeDups, findDupsEq,
         equivClasses, equivClassesByUniq,
 
-       -- Remove redudant elts
-       removeRedundant    -- Used in the ghc/InteractiveUI, 
-                          -- although not in the compiler itself
+        -- Remove redudant elts
+        removeRedundant    -- Used in the ghc/InteractiveUI, 
+                           -- although not in the compiler itself
    ) where
 
 #include "HsVersions.h"
@@ -220,7 +220,7 @@ findDupsEq eq (x:xs) | null eq_xs  = findDupsEq eq xs
     where (eq_xs, neq_xs) = partition (eq x) xs
 
 removeRedundant :: (a -> a -> Bool)   -- True <=> discard the *second* argument
-               -> [a] -> [a]
+                -> [a] -> [a]
 -- Remove any element y for which 
 --     another element x is in the list
 -- and (x `subsumes` y)