[project @ 1996-01-08 20:28:12 by partain]

[ghc-hetmet.git] / ghc / compiler / simplStg / SatStgRhs.hi

diff --git a/ghc/compiler/simplStg/SatStgRhs.hi b/ghc/compiler/simplStg/SatStgRhs.hi
new file mode 100644 (file)
index 0000000..de10f7c
--- /dev/null
+++ b/ghc/compiler/simplStg/SatStgRhs.hi
@@ -0,0 +1,8 @@
+{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
+interface SatStgRhs where
+import Id(Id)
+import SplitUniq(SplitUniqSupply)
+import StgSyn(StgBinding)
+satStgRhs :: [StgBinding Id Id] -> SplitUniqSupply -> [StgBinding Id Id]
+       {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "S" _N_ _N_ #-}
+