Commit 80baa709 authored by panne's avatar panne

[project @ 2005-04-17 11:11:32 by panne]

Haddock fixes, "-- *" should be used with care...
parent 9d2575d7
......@@ -822,7 +822,7 @@ dsCmdStmt ids local_vars env_ids out_ids (LetStmt binds)
-- arr (\((xs1),(xs2)) -> (xs')) >>> ss'
dsCmdStmt ids local_vars env_ids out_ids (RecStmt stmts later_ids rec_ids rhss binds)
= let -- ****** binds not desugared; ROSS PLEASE FIX ********
= let -- ToDo: ****** binds not desugared; ROSS PLEASE FIX ********
env2_id_set = mkVarSet out_ids `minusVarSet` mkVarSet later_ids
env2_ids = varSetElems env2_id_set
env2_ty = mkTupleType env2_ids
......
......@@ -79,7 +79,7 @@ data Pat id
| LitPat HsLit -- Used for *non-overloaded* literal patterns:
-- Int#, Char#, Int, Char, String, etc.
| NPat (HsOverLit id) -- *Always* positive
| NPat (HsOverLit id) -- ALWAYS positive
(Maybe (SyntaxExpr id)) -- Just (Name of 'negate') for negative
-- patterns, Nothing otherwise
(SyntaxExpr id) -- Equality checker, of type t->t->Bool
......
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