/usr/web/sources/contrib/fernan/nhc98/src/prelude/Directory/DoesFileExist_.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Directory/DoesFileExist_.hs


module Directory (doesFileExist) where

import NHC.GreenCard



foreign import ccall hs_doesFileExist :: PackedString -> IO Bool

doesFileExist :: FilePath -> IO Bool
doesFileExist tmp1 =
  do let fp = toCString tmp1
     hs_doesFileExist fp

(Return to Plan 9 Home Page)