White space only

cf788a53 · Simon Peyton Jones · 632f020b · cf788a53
Commit cf788a53 authored Jan 26, 2016 by Simon Peyton Jones
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

compiler/coreSyn/CoreSubst.hs compiler/coreSyn/CoreSubst.hs +2 -2

No files found.
--- a/compiler/coreSyn/CoreSubst.hs
+++ b/compiler/coreSyn/CoreSubst.hs
@@ -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])