shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Better writeFileFast

--- a/lib/Foreign/C/String.hs

+++ b/lib/Foreign/C/String.hs

@@ -1,7 +1,8 @@

 module Foreign.C.String(

   CChar, CString,

-  newCAString, withCAString,

+  newCAString, newCAStringLen,

   peekCAString, peekCAStringLen,

+  withCAString,

   ) where

 import Primitives

 import Data.Char_Type

--- a/lib/System/IO.hs

+++ b/lib/System/IO.hs

@@ -161,12 +161,10 @@

   hClose h

 -- Faster, but uses a lot more C memory.

--- It also holds not GC friendly.

 writeFileFast :: FilePath -> String -> IO ()

 writeFileFast p s = do

   h <- openFile p WriteMode

-  cs <- newCAString s

-  let l = length s

+  (cs, l) <- newCAStringLen s

   n <- c_fwrite cs 1 l h

   free cs

   hClose h

-- 

⑨