[project @ 1996-01-11 14:06:51 by partain]
[ghc-hetmet.git] / ghc / compiler / simplCore / ConFold.hi
index 789f3b0..f154a44 100644 (file)
@@ -8,5 +8,4 @@ import SimplMonad(SimplCount)
 import SplitUniq(SplitUniqSupply)
 import UniType(UniType)
 completePrim :: SimplEnv -> PrimOp -> [UniType] -> [CoreAtom Id] -> SplitUniqSupply -> SimplCount -> (CoreExpr Id Id, SimplCount)
-       {-# GHC_PRAGMA _A_ 4 _U_ 122222 _N_ _S_ "LSLS" _N_ _N_ #-}