@@ -118,7 +118,7 @@ list encodeEntry entries =
118write :: FilePath -> Value -> IO ()
118write :: FilePath -> Value -> IO ()
119write path value =
119write path value =
120 withBinaryFile path WriteMode $ \handle ->
120 withBinaryFile path WriteMode $ \handle ->
121− B.hPutBuilder handle (encode value)
121+ B.hPutBuilder handle (encode value <> "\n")
124writeUgly :: FilePath -> Value -> IO ()
124writeUgly :: FilePath -> Value -> IO ()