X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDsListComp.hi;h=a682df815395707cd5d2951708066d7ef1521a3b;hb=8147a9f0bcc48ef0db1e91f8b985a4f5c3fed560;hp=a6455a0b41e14ae5db919f8b4f148feccf699efd;hpb=e7d21ee4f8ac907665a7e170c71d59e13a01da09;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsListComp.hi b/ghc/compiler/deSugar/DsListComp.hi
index a6455a0..a682df8 100644
--- a/ghc/compiler/deSugar/DsListComp.hi
+++ b/ghc/compiler/deSugar/DsListComp.hi
@@ -12,5 +12,4 @@ import SplitUniq(SplitUniqSupply)
 import SrcLoc(SrcLoc)
 import UniqFM(UniqFM)
 dsListComp :: CoreExpr Id Id -> [Qual Id TypecheckedPat] -> SplitUniqSupply -> SrcLoc -> (GlobalSwitch -> SwitchResult) -> (_PackedString, _PackedString) -> UniqFM (CoreExpr Id Id) -> Bag DsMatchContext -> (CoreExpr Id Id, Bag DsMatchContext)
-	{-# GHC_PRAGMA _A_ 2 _U_ 22222222 _N_ _N_ _N_ _N_ #-}