[commit: ghc] master: Comments only (2e5e822)

[git at git.haskell.org]

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

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

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

commit 2e5e8223e2fd0fe7f6082a15627dfd54e3560b06
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Wed Mar 30 17:09:10 2016 +0100

    Comments only


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

2e5e8223e2fd0fe7f6082a15627dfd54e3560b06
 compiler/basicTypes/Demand.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/compiler/basicTypes/Demand.hs b/compiler/basicTypes/Demand.hs
index 5359c2f..7dc575e 100644
--- a/compiler/basicTypes/Demand.hs
+++ b/compiler/basicTypes/Demand.hs
@@ -1446,7 +1446,7 @@ peelManyCalls n (JD { sd = str, ud = abs })
     go_str n (SCall d') = go_str (n-1) d'
     go_str _ _          = Lazy
 
-    go_abs :: Int -> UseDmd -> Use () -- Many <=> unsaturated, or at least
+    go_abs :: Int -> UseDmd -> Use ()      -- Many <=> unsaturated, or at least
     go_abs 0 _              = Use One ()   --          one UCall Many in the demand
     go_abs n (UCall One d') = go_abs (n-1) d'
     go_abs _ _              = Use Many ()
@@ -1776,7 +1776,9 @@ argsOneShots (StrictSig (DmdType _ arg_ds _)) n_val_args
     cons [] [] = []
     cons a  as = a:as
 
-argOneShots :: OneShotInfo -> Demand -> [OneShotInfo]
+argOneShots :: OneShotInfo     -- OneShotLam or ProbOneShot,
+            -> Demand          -- depending on saturation
+            -> [OneShotInfo]
 argOneShots one_shot_info (JD { ud = usg })
   = case usg of
       Use _ arg_usg -> go arg_usg