shithub: MicroHs

ref: 9afcafd33a81fc6c1f1134ed7c3580964b2d5e3b
dir: /lib/System/Directory.hs/

View raw version 
module System.Directory(removeFile) where
import Prelude
import Foreign.C.String
import Foreign.Ptr

foreign import ccall "unlink" c_unlink :: CString -> IO Int

removeFile :: FilePath -> IO ()
removeFile fn = do
  r <- withCAString fn c_unlink
  when (r /= 0) $
    error "removeFile failed"