X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2FglaExts%2FPreludeErrIO_mt.hi;fp=ghc%2Flib%2FglaExts%2FPreludeErrIO_mt.hi;h=352a49beff00fe434f60498742386b1fc4038f5c;hb=e7d21ee4f8ac907665a7e170c71d59e13a01da09;hp=0000000000000000000000000000000000000000;hpb=e48474bff05e6cfb506660420f025f694c870d38;p=ghc-hetmet.git

diff --git a/ghc/lib/glaExts/PreludeErrIO_mt.hi b/ghc/lib/glaExts/PreludeErrIO_mt.hi
new file mode 100644
index 0000000..352a49b
--- /dev/null
+++ b/ghc/lib/glaExts/PreludeErrIO_mt.hi
@@ -0,0 +1,6 @@
+{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
+interface PreludeErrIO where
+import PreludeBuiltin(Tuple0, Tuple2, _RealWorld(..), _State(..))
+errorIO :: (_State _RealWorld -> ((), _State _RealWorld)) -> a
+	{-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ _!_ _F_ _IF_ARGS_ 1 1 X 4 _/\_ u0 -> \ (u1 :: _State _RealWorld -> ((), _State _RealWorld)) -> _LETREC_ {(u2 :: _forall_ a$z1 =>a$z1) = u2} in case _#_ errorIO# [] [u1] of { _PRIM_ (u3 :: State# _RealWorld) -> _TYAPP_  u2 { u0 } } _N_ #-}
+