White space only
authorSimon Peyton Jones <simonpj@microsoft.com>
Tue, 26 Jan 2016 09:00:57 +0000 (09:00 +0000)
committerSimon Peyton Jones <simonpj@microsoft.com>
Tue, 26 Jan 2016 09:48:20 +0000 (09:48 +0000)
compiler/coreSyn/CoreSubst.hs

index a3ab970..8d4529a 100644 (file)
@@ -542,8 +542,8 @@ cloneBndrs subst us vs
 
 cloneBndr :: Subst -> Unique -> Var -> (Subst, Var)
 cloneBndr subst uniq v
-      | isTyVar v = cloneTyVarBndr subst v uniq
-      | otherwise = clone_id subst subst (v,uniq)  -- Works for coercion variables too
+  | isTyVar v = cloneTyVarBndr subst v uniq
+  | otherwise = clone_id subst subst (v,uniq)  -- Works for coercion variables too
 
 -- | Clone a mutually recursive group of 'Id's
 cloneRecIdBndrs :: Subst -> UniqSupply -> [Id] -> (Subst, [Id])