/usr/web/sources/contrib/fernan/nhc98/src/prelude/PreludeIO/WriteFile.hs

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


module Prelude(writeFile) where

import IO
import TFilePath

writeFile :: FilePath -> String -> IO ()
writeFile fp str =
  openFile fp WriteMode >>= \ handle ->
  mapM_ (hPutChar handle) str >>
  hClose handle

(Return to Plan 9 Home Page)