Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/PreludeIO/AppendFile.hs
module Prelude(appendFile) where import IO appendFile :: FilePath -> String -> IO () appendFile fp str = openFile fp AppendMode >>= \ handle -> mapM_ (hPutChar handle) str >> hClose handle
