Spaces only

b3e722e9 · simonpj@microsoft.com · 5db03609 · b3e722e9
Commit b3e722e9 authored Sep 17, 2010 by simonpj@microsoft.com
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

compiler/typecheck/TcSimplify.lhs compiler/typecheck/TcSimplify.lhs +1 -1

No files found.
--- a/compiler/typecheck/TcSimplify.lhs
+++ b/compiler/typecheck/TcSimplify.lhs
@@ -676,7 +676,7 @@ floatEqualities :: TcTyVarSet -> [EvVar]
                -> CanonicalCts -> (CanonicalCts, CanonicalCts)
 floatEqualities skols can_given wanteds
  | hasEqualities can_given = (emptyBag, wanteds)
-  | otherwise                 = partitionBag is_floatable wanteds
+  | otherwise               = partitionBag is_floatable wanteds
  where
    is_floatable :: CanonicalCt -> Bool
    is_floatable (CTyEqCan { cc_tyvar = tv, cc_rhs = ty })