White space only
authorSimon Peyton Jones <simonpj@microsoft.com>
Mon, 26 Mar 2018 15:09:45 +0000 (16:09 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Tue, 27 Mar 2018 08:29:13 +0000 (09:29 +0100)
compiler/simplCore/OccurAnal.hs

index b7fc977..b1d2403 100644 (file)
@@ -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