shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Add copyFile

--- a/lib/System/Directory.hs

+++ b/lib/System/Directory.hs

@@ -7,6 +7,7 @@

   setCurrentDirectory,

   createDirectory,

   createDirectoryIfMissing,

+  copyFile,

   ) where

 import Prelude

 import Control.Monad(when)

@@ -89,3 +90,12 @@

       split r ('/':cs) = r : split [] cs

       split r (c:cs) = split (r ++ [c]) cs

   mapM_ (createDirectoryIfMissing False) ds

+

+-- XXX does not copy flags

+copyFile :: FilePath -> FilePath -> IO ()

+copyFile src dst = do

+  hsrc <- openBinaryFile src ReadMode

+  hdst <- openBinaryFile dst WriteMode

+  file <- hGetContents hsrc  -- this also closes the file

+  hPutStr hdst file

+  hClose hdst

-- 

⑨