From: igloo <unknown>
Date: Wed, 11 Dec 2002 14:02:28 +0000 (+0000)
Subject: [project @ 2002-12-11 14:02:28 by igloo]
X-Git-Tag: Approx_11550_changesets_converted~1364
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a63622cce9c14fe985cb870cf95984fa4e61e508;p=ghc-hetmet.git

[project @ 2002-12-11 14:02:28 by igloo]
Handle bindings to just a pattern variable in cvtd.
---

diff --git a/ghc/compiler/hsSyn/Convert.lhs b/ghc/compiler/hsSyn/Convert.lhs
index 9c31331..aa3454d 100644
--- a/ghc/compiler/hsSyn/Convert.lhs
+++ b/ghc/compiler/hsSyn/Convert.lhs
@@ -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)