X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=docs%2Fusers_guide%2Fprofiling.xml;h=f0d96ba98b952acf5148d8475972f5e4e45b5823;hp=51ae6f71c381e55e1a35100f92201351d2a5f34e;hb=0c12697ef809ab47dd10b6e292fe42140af72c3f;hpb=6790af558efad6467b9ec0fc40f7a2e43d437fc7

diff --git a/docs/users_guide/profiling.xml b/docs/users_guide/profiling.xml
index 51ae6f7..f0d96ba 100644
--- a/docs/users_guide/profiling.xml
+++ b/docs/users_guide/profiling.xml
@@ -266,6 +266,22 @@ MAIN                     MAIN             0    0.0   0.0    100.0 100.0
       far to the right as possible when parsing. (SCC stands for "Set
       Cost Centre").</para>
 
+      <para>Here is an example of a program with a couple of SCCs:</para>
+
+<programlisting>
+main :: IO ()
+main = do let xs = {-# SCC "X" #-} [1..1000000]
+          let ys = {-# SCC "Y" #-} [1..2000000]
+          print $ last xs
+          print $ last $ init xs
+          print $ last ys
+          print $ last $ init ys
+</programlisting>
+
+      <para>which gives this heap profile when run:</para>
+
+      <imagedata fileref="prof_scc.png"/>
+
     </sect2>
 
     <sect2 id="prof-rules">