ghc/lib/glaExts/PreludeErrIO.lhs

   1 %
   2 % (c) The GRASP/AQUA Project, Glasgow University, 1993
   3 %
   4 \section[PreludeErrIO]{Wrapper for errorIO primitive}
   5
   6 The boxified version of the @errorIO#@ primitive.
   7
   8 \begin{code}
   9 module PreludeErrIO where
  10
  11 errorIO :: PrimIO () -> a
  12
  13 errorIO io
  14   = case (errorIO# io) of
  15       _ -> bottom
  16   where
  17     bottom = bottom             -- Never evaluated
  18 \end{code}