From cafceec49550e38ee039fc03e3b07c64bdd00c23 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 8 Oct 2004 11:37:46 +0000
Subject: [PATCH] [project @ 2004-10-08 11:37:46 by simonpj] HsNoBang should
 simply be omitted; fixes a TH_spliceDecl2 test

---
 ghc/compiler/hsSyn/Convert.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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]
-- 
1.7.10.4