X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FabsCSyn%2FAbsCUtils.lhs;fp=ghc%2Fcompiler%2FabsCSyn%2FAbsCUtils.lhs;h=b05c3c12d7eacb53e10612211a8451be21a572fd;hb=2c71b5dbed008d1d8752b722755143e797debb9d;hp=aeb8d30f7ba9df3bc81d2c104b190e8284e2c9fd;hpb=661a9aefe5e7a922bf6b0be96c933569eb33900e;p=ghc-hetmet.git

diff --git a/ghc/compiler/absCSyn/AbsCUtils.lhs b/ghc/compiler/absCSyn/AbsCUtils.lhs
index aeb8d30..b05c3c1 100644
--- a/ghc/compiler/absCSyn/AbsCUtils.lhs
+++ b/ghc/compiler/absCSyn/AbsCUtils.lhs
@@ -417,7 +417,7 @@ flatAbsC (CSequential abcs)
 
 -- Some statements only make sense at the top level, so we always float
 -- them.  This probably isn't necessary.
-flatAbsC stmt@(CStaticClosure _ _ _ _)		= returnFlt (AbsCNop, stmt)
+flatAbsC stmt@(CStaticClosure _ _ _)  		= returnFlt (AbsCNop, stmt)
 flatAbsC stmt@(CClosureTbl _)			= returnFlt (AbsCNop, stmt)
 flatAbsC stmt@(CSRT _ _)	  		= returnFlt (AbsCNop, stmt)
 flatAbsC stmt@(CBitmap _ _)	  		= returnFlt (AbsCNop, stmt)