[commit: ghc] master: White space only (9cc6a18)

[git at git.haskell.org]

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

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

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

commit 9cc6a182fc6f6d331774f0818bba5755188328cd
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Mon Mar 26 16:09:45 2018 +0100

    White space only


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

9cc6a182fc6f6d331774f0818bba5755188328cd
 compiler/simplCore/OccurAnal.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/compiler/simplCore/OccurAnal.hs b/compiler/simplCore/OccurAnal.hs
index b7fc977..b1d2403 100644
--- a/compiler/simplCore/OccurAnal.hs
+++ b/compiler/simplCore/OccurAnal.hs
@@ -2724,14 +2724,18 @@ decideJoinPointHood NotTopLevel usage bndrs
     ok bndr
       | -- Invariant 1: Only tail calls, all same join arity
         AlwaysTailCalled arity <- tailCallInfo (lookupDetails usage bndr)
+
       , -- Invariant 1 as applied to LHSes of rules
         all (ok_rule arity) (idCoreRules bndr)
+
         -- Invariant 2a: stable unfoldings
         -- See Note [Join points and INLINE pragmas]
       , ok_unfolding arity (realIdUnfolding bndr)
+
         -- Invariant 4: Satisfies polymorphism rule
       , isValidJoinPointType arity (idType bndr)
       = True
+
       | otherwise
       = False