Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/PreludeIO/StrError.hs
module Prelude (strError) where import NHC.FFI import NHC.DErrNo foreign import ccall "strerror" primStrError :: Int -> PackedString strError :: ErrNo -> String strError e = fromCString (primStrError (fromEnum e))
