Commit a63622cc authored by igloo's avatar igloo

[project @ 2002-12-11 14:02:28 by igloo]

Handle bindings to just a pattern variable in cvtd.
parent bfc8d847
......@@ -194,7 +194,7 @@ cvtd :: Meta.Dec -> MonoBinds RdrName
-- Used only for declarations in a 'let/where' clause,
-- not for top level decls
cvtd (Val (Pvar s) body ds) = FunMonoBind (vName s) False
(panic "what now?") loc0
[cvtclause (Clause [] body ds)] loc0
cvtd (Fun nm cls) = FunMonoBind (vName nm) False (map cvtclause cls) loc0
cvtd (Val p body ds) = PatMonoBind (cvtp p) (GRHSs (cvtguard body)
(cvtdecs ds)
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