[commit: ghc] master: Comments and white space (ab8f254)

[git at git.haskell.org]

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

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

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

commit ab8f2544ac2fe5fac0b482ab6da3eef004f4e6f5
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Tue Jul 29 22:01:59 2014 +0100

    Comments and white space


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

ab8f2544ac2fe5fac0b482ab6da3eef004f4e6f5
 compiler/typecheck/TcSMonad.lhs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/compiler/typecheck/TcSMonad.lhs b/compiler/typecheck/TcSMonad.lhs
index 9b73fe6..9891f77 100644
--- a/compiler/typecheck/TcSMonad.lhs
+++ b/compiler/typecheck/TcSMonad.lhs
@@ -1281,8 +1281,7 @@ getUntouchables = wrapTcS TcM.getUntouchables
 getGivenInfo :: TcS a -> TcS (Bool, [TcTyVar], a)
 -- See Note [inert_fsks and inert_no_eqs]
 getGivenInfo thing_inside
-  = do {
-       ; updInertTcS reset_vars  -- Set inert_fsks and inert_no_eqs to initial values
+  = do { updInertTcS reset_vars  -- Set inert_fsks and inert_no_eqs to initial values
        ; res <- thing_inside     -- Run thing_inside
        ; is  <- getTcSInerts     -- Get new values of inert_fsks and inert_no_eqs
        ; return (inert_no_eqs (inert_cans is), inert_fsks is, res) }
@@ -1716,7 +1715,7 @@ as an Irreducible (see Note [Equalities with incompatible kinds] in
 TcCanonical), and will do no harm.
 
 \begin{code}
-xCtEvidence :: CtEvidence            -- Original flavor
+xCtEvidence :: CtEvidence            -- Original evidence
             -> XEvTerm               -- Instructions about how to manipulate evidence
             -> TcS [CtEvidence]