X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2FsimplStg%2FSatStgRhs.hi;fp=ghc%2Fcompiler%2FsimplStg%2FSatStgRhs.hi;h=de10f7c4245e3eb2d44ecb7f9bbb1e9dcfb8697a;hb=e7d21ee4f8ac907665a7e170c71d59e13a01da09;hp=0000000000000000000000000000000000000000;hpb=e48474bff05e6cfb506660420f025f694c870d38;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplStg/SatStgRhs.hi b/ghc/compiler/simplStg/SatStgRhs.hi
new file mode 100644
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_ #-}
+