[commit: ghc] master: White space only (2593e20)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/2593e20416c2e4222ed33c6f363c0341f44a120a/ghc

>---------------------------------------------------------------

commit 2593e20416c2e4222ed33c6f363c0341f44a120a
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Mon May 9 11:45:49 2016 +0100

    White space only


>---------------------------------------------------------------

2593e20416c2e4222ed33c6f363c0341f44a120a
 compiler/typecheck/TcBinds.hs | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/compiler/typecheck/TcBinds.hs b/compiler/typecheck/TcBinds.hs
index aef80a8..2bb2dca 100644
--- a/compiler/typecheck/TcBinds.hs
+++ b/compiler/typecheck/TcBinds.hs
@@ -1483,15 +1483,15 @@ tcMonoBinds _ sig_fn no_gen binds
 
         -- Bring the monomorphic Ids, into scope for the RHSs
         ; let mono_infos = getMonoBindInfo tc_binds
-              rhs_id_env = [(name, mono_id) | MBI { mbi_poly_name = name
-                                                  , mbi_sig       = mb_sig
-                                                  , mbi_mono_id   = mono_id }
-                                                    <- mono_infos
-                                            , case mb_sig of
-                                                Just sig -> isPartialSig sig
-                                                Nothing  -> True ]
-                    -- A monomorphic binding for each term variable that lacks
-                    -- a type sig.  (Ones with a sig are already in scope.)
+              rhs_id_env = [ (name, mono_id)
+                           | MBI { mbi_poly_name = name
+                                 , mbi_sig       = mb_sig
+                                 , mbi_mono_id   = mono_id } <- mono_infos
+                           , case mb_sig of
+                               Just sig -> isPartialSig sig
+                               Nothing  -> True ]
+                -- A monomorphic binding for each term variable that lacks
+                -- a complete type sig.  (Ones with a sig are already in scope.)
 
         ; traceTc "tcMonoBinds" $ vcat [ ppr n <+> ppr id <+> ppr (idType id)
                                        | (n,id) <- rhs_id_env]