Commit 155ce292 authored by dterei's avatar dterei
Browse files

Fix haddock validate problem.

parent b540be06
...@@ -354,12 +354,12 @@ And so the code for let(rec)-things: ...@@ -354,12 +354,12 @@ And so the code for let(rec)-things:
| StgLetNoEscape -- remember: ``advanced stuff'' | StgLetNoEscape -- remember: ``advanced stuff''
(GenStgLiveVars occ) -- Live in the whole let-expression (GenStgLiveVars occ) -- Live in the whole let-expression
-- Mustn't overwrite these stack slots -- Mustn't overwrite these stack slots
-- *Doesn't* include binders of the let(rec). -- _Doesn't_ include binders of the let(rec).
(GenStgLiveVars occ) -- Live in the right hand sides (only) (GenStgLiveVars occ) -- Live in the right hand sides (only)
-- These are the ones which must be saved on -- These are the ones which must be saved on
-- the stack if they aren't there already -- the stack if they aren't there already
-- *Does* include binders of the let(rec) if recursive. -- _Does_ include binders of the let(rec) if recursive.
(GenStgBinding bndr occ) -- right hand sides (see below) (GenStgBinding bndr occ) -- right hand sides (see below)
(GenStgExpr bndr occ) -- body (GenStgExpr bndr occ) -- body
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment