X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2Freader%2FPrefixToHs.lhs;h=ee4c2249c9bb43e96edd4596e300ff9b46cc4d60;hp=1d5b008548e0eec7d5651e344527c1a27385ec92;hb=438596897ebbe25a07e1c82085cfbc5bdb00f09e;hpb=967cc47f37cb93a5e2b6df7822c9a646f0428247

diff --git a/ghc/compiler/reader/PrefixToHs.lhs b/ghc/compiler/reader/PrefixToHs.lhs
index 1d5b008..ee4c224 100644
--- a/ghc/compiler/reader/PrefixToHs.lhs
+++ b/ghc/compiler/reader/PrefixToHs.lhs
@@ -1,5 +1,5 @@
 %
-% (c) The GRASP/AQUA Project, Glasgow University, 1992-1996
+% (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
 %
 \section[PrefixToHS]{Support routines for converting ``prefix form'' to Haskell abstract syntax}
 
@@ -24,7 +24,6 @@ module PrefixToHs (
 import PrefixSyn	-- and various syntaxen.
 import HsSyn
 import RdrHsSyn
-import HsPragmas	( noGenPragmas, noClassOpPragmas )
 
 import BasicTypes	( RecFlag(..) )
 import SrcLoc		( mkSrcLoc )
@@ -176,7 +175,9 @@ cvMatch sf is_case rdr_match
 	  RdrMatch_Guards  ln b c gd_exps d -> (c,d, map (cvGRHS sf ln) gd_exps)
 
 cvGRHS :: SrcFile -> SrcLine -> ([RdrNameStmt], RdrNameHsExpr) -> RdrNameGRHS
-cvGRHS sf sl (g, e) = GRHS g e (mkSrcLoc sf sl)
+cvGRHS sf sl (g, e) = GRHS (g ++ [ExprStmt e locn]) locn
+		    where
+		      locn = mkSrcLoc sf sl
 \end{code}
 
 %************************************************************************