From: simonpj <unknown>
Date: Fri, 8 Oct 2004 11:37:46 +0000 (+0000)
Subject: [project @ 2004-10-08 11:37:46 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~1518
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cafceec49550e38ee039fc03e3b07c64bdd00c23;p=ghc-hetmet.git

[project @ 2004-10-08 11:37:46 by simonpj]
HsNoBang should simply be omitted; fixes a TH_spliceDecl2 test
---

diff --git a/ghc/compiler/hsSyn/Convert.lhs b/ghc/compiler/hsSyn/Convert.lhs
index af3350c..34da7bd 100644
--- a/ghc/compiler/hsSyn/Convert.lhs
+++ b/ghc/compiler/hsSyn/Convert.lhs
@@ -54,12 +54,12 @@ mk_con con = L loc0 $ case con of
 		  (InfixCon (mk_arg st1) (mk_arg st2))
   where
     mk_arg (IsStrict, ty)  = noLoc $ HsBangTy HsStrict (cvtType ty)
-    mk_arg (NotStrict, ty) = noLoc $ HsBangTy HsNoBang (cvtType ty)
+    mk_arg (NotStrict, ty) = cvtType ty
 
     mk_id_arg (i, IsStrict, ty)
         = (noLoc (vName i), noLoc $ HsBangTy HsStrict (cvtType ty))
     mk_id_arg (i, NotStrict, ty)
-        = (noLoc (vName i), noLoc $ HsBangTy HsNoBang (cvtType ty))
+        = (noLoc (vName i), cvtType ty)
 
 mk_derivs [] = Nothing
 mk_derivs cs = Just [noLoc $ HsPredTy $ HsClassP (tconName c) [] | c <- cs]