[project @ 1996-07-01 09:16:34 by partain]

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

diff --git a/ghc/lib/glaExts/PreludeErrIO.lhs b/ghc/lib/glaExts/PreludeErrIO.lhs
deleted file mode 100644 (file)
index 0057b59..0000000
--- a/ghc/lib/glaExts/PreludeErrIO.lhs
+++ /dev/null
@@ -1,18 +0,0 @@
-%
-% (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}