@@ -30,7 +30,8 @@ import qualified Data.Scientific as Sci
3030import Data.Monoid ((<>))
3131import qualified Data.Name as Name
3232import qualified Data.Utf8 as Utf8
33−import System.IO (IOMode(WriteMode), withBinaryFile)
33+
34+import qualified File
3435
3536
3637
@@ -112,14 +113,12 @@ list encodeEntry entries =
112113
113114write :: FilePath -> Value -> IO ()
114115write path value =
115− withBinaryFile path WriteMode $ \handle ->
116− B.hPutBuilder handle (encode value <> "\n")
116+ File.writeBuilder path (encode value <> "\n")
117117
118118
119119writeUgly :: FilePath -> Value -> IO ()
120120writeUgly path value =
121− withBinaryFile path WriteMode $ \handle ->
122− B.hPutBuilder handle (encodeUgly value)
121+ File.writeBuilder path (encodeUgly value)
123122
124123
125124