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

[ghc-hetmet.git] / ghc / lib / glaExts / PreludeErrIO.lhs

diff --git a/ghc/lib/glaExts/PreludeErrIO.lhs b/ghc/lib/glaExts/PreludeErrIO.lhs
new file mode 100644 (file)
index 0000000..0057b59
--- /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}