Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/IO/HGetFileName.hs
module IO (hGetFileName) where import DHandle import NHC.FFI foreign import ccall hGetFileNameC :: Handle -> PackedString hGetFileName h = Just (fromCString (hGetFileNameC h))
