1 files changed, 18 insertions, 0 deletions
diff --git a/ghc/lib/glaExts/PreludeErrIO.lhs b/ghc/lib/glaExts/PreludeErrIO.lhs
new file mode 100644
index 0000000000..0057b59292
--- /dev/null
+++ b/ghc/lib/glaExts/PreludeErrIO.lhs
@@ -0,0 +1,18 @@
+%
+% (c) The GRASP/AQUA Project, Glasgow University, 1993
+%
+\section[PreludeErrIO]{Wrapper for errorIO primitive}
+
+The boxified version of the @errorIO#@ primitive.
+
+\begin{code}
+module PreludeErrIO where
+
+errorIO :: PrimIO () -> a
+
+errorIO io
+  = case (errorIO# io) of
+      _ -> bottom
+  where
+    bottom = bottom		-- Never evaluated
+\end{code}