-
-
Notifications
You must be signed in to change notification settings - Fork 34
/
Encode.fs
54 lines (44 loc) · 1.71 KB
/
Encode.fs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
namespace Thoth.Json.Newtonsoft
open Thoth.Json.Core
open Newtonsoft.Json
open Newtonsoft.Json.Linq
open System.IO
[<RequireQualifiedAccess>]
module Encode =
let helpers =
{ new IEncoderHelpers<JToken> with
member _.encodeString value = JValue(value)
member _.encodeChar value = JValue(value)
member _.encodeDecimalNumber value = JValue(value)
member _.encodeBool value = JValue(value)
member _.encodeNull() = JValue.CreateNull()
member _.createEmptyObject() = JObject()
member _.setPropertyOnObject
(
o: JToken,
key: string,
value: JToken
)
=
o[key] <- value
member _.encodeArray values = JArray(values)
member _.encodeList values = JArray(values)
member _.encodeSeq values = JArray(values)
member _.encodeIntegralNumber(value: uint32) =
// We need to force the cast to uint64 here, otherwise
// Newtonsoft resolve the constructor to JValue(decimal)
// when we actually want to output a number without decimals
JValue(uint64 value)
}
let toString (space: int) (value: Json) : string =
let format =
if space = 0 then
Formatting.None
else
Formatting.Indented
use stream = new StringWriter(NewLine = "\n")
use jsonWriter =
new JsonTextWriter(stream, Formatting = format, Indentation = space)
let json = Encode.toJsonValue helpers value
json.WriteTo(jsonWriter)
stream.ToString()