added Converter

paket.dependencies

@@ -90,3 +90,11 @@ group Demos
     nuget Fable.FontAwesome
     nuget Fable.FontAwesome.Free
     nuget Fable.Import.HMR
+
+group WebApi
+   framework >= net46
+   source https://www.nuget.org/api/v2
+   nuget Microsoft.AspNet.WebApi 5.2.3.0
+   nuget Microsoft.AspNet.WebApi.Core 5.2.3.0
+   nuget Microsoft.AspNet.WebApi.Client 5.2.3.0
+   nuget Newtonsoft.Json >= 11.0.2

src/Thoth.Json.Net/Converters.fs

@@ -0,0 +1,25 @@
+module Thoth.Json.Net.Converters
+
+open Newtonsoft.Json
+open Newtonsoft.Json.Linq
+
+type Converter (?isCamelCase : bool, ?extra: ExtraCoders) =
+    inherit JsonConverter()
+
+    override __.CanConvert(t) = true
+
+    override __.WriteJson(writer, value, _) = 
+        let t = value.GetType()
+        let encoder = Encode.Auto.generateEncoderCached(t, ?isCamelCase=isCamelCase, ?extra=extra)
+        (encoder value).WriteTo(writer)
+        writer.Flush()
+
+    override __.ReadJson(reader, t, _, _) =
+        let decoder = Decode.Auto.generateDecoderCachedByType(t, ?isCamelCase=isCamelCase, ?extra=extra)
+        let json  = JObject.Load(reader).ToString()
+        Decode.fromString decoder json
+        |> function
+            | Ok value -> value
+            | Error er -> failwith er
+
+

src/Thoth.Json.Net/Decode.fs

@@ -1033,6 +1033,9 @@ module Decode =
         /// ATTENTION: Use this only when other arguments (isCamelCase, extra) don't change
         static member generateDecoderCached<'T> (?isCamelCase : bool, ?extra: ExtraCoders): Decoder<'T> =
             let t = typeof<'T>
+            Auto.generateDecoderCachedByType (t, ?isCamelCase=isCamelCase, ?extra=extra )
+
+        static member generateDecoderCachedByType (t:System.Type, ?isCamelCase : bool, ?extra: ExtraCoders): Decoder<'T> =
             let decoderCrate =
                 Util.CachedDecoders.Value.GetOrAdd(t, fun t ->
                     let isCamelCase = defaultArg isCamelCase false

src/Thoth.Json.Net/Thoth.Json.Net.fsproj

@@ -1,23 +1,24 @@
 <?xml version="1.0" encoding="utf-8"?>
 <Project Sdk="Microsoft.NET.Sdk">
-    <PropertyGroup>
+  <PropertyGroup>
         <Description>Elm-inspired encoder and decoder for JSON targetting .Net and NetCore runtime</Description>
         <PackageProjectUrl>https://github.com/MangelMaxime/Thoth</PackageProjectUrl>
         <PackageLicenseUrl>https://github.com/MangelMaxime/Thoth/blob/master/LICENSE.md</PackageLicenseUrl>
         <RepositoryUrl>https://github.com/MangelMaxime/Thoth</RepositoryUrl>
         <PackageTags>fsharp;json</PackageTags>
         <Authors>Maxime Mangel</Authors>
         <Version>3.0.0-beta-002</Version>
-    </PropertyGroup>
-    <PropertyGroup>
-        <TargetFrameworks>netstandard2.0;net46</TargetFrameworks>
-        <GenerateDocumentationFile>true</GenerateDocumentationFile>
-    </PropertyGroup>
-    <ItemGroup>
-        <Compile Include="Types.fs" />
-        <Compile Include="Decode.fs" />
-        <Compile Include="Encode.fs" />
-        <Compile Include="Extra.fs" />
-    </ItemGroup>
-    <Import Project="..\..\.paket\Paket.Restore.targets" />
+  </PropertyGroup>
+  <PropertyGroup>
+    <TargetFrameworks>netstandard2.0;net46</TargetFrameworks>
+    <GenerateDocumentationFile>true</GenerateDocumentationFile>
+  </PropertyGroup>
+  <ItemGroup>
+    <Compile Include="Types.fs" />
+    <Compile Include="Decode.fs" />
+    <Compile Include="Encode.fs" />
+    <Compile Include="Extra.fs" />
+    <Compile Include="Converters.fs" />
+  </ItemGroup>
+  <Import Project="..\..\.paket\Paket.Restore.targets" />
 </Project>

src/Thoth.Json.WebApi/README.md

@@ -0,0 +1,11 @@
+Usage 
+
+```fsharp
+
+open Thoth.Json.WebApi
+
+[<WithThothJsonNet>]
+type FableController () =
+  inherit ApiController ()
+
+```

src/Thoth.Json.WebApi/Thoth.Json.WebApi.fs

@@ -0,0 +1,18 @@
+namespace Thoth.Json.WebApi
+
+open System.Web.Http.Controllers
+open System.Net.Http.Formatting
+open Newtonsoft.Json
+open Thoth.Json.Net
+
+type WithThothJsonNetAttribute(?isCamelCase : bool, ?extra : ExtraCoders) =
+    inherit System.Attribute()
+    interface IControllerConfiguration with
+        member __.Initialize((controllerSettings : HttpControllerSettings), _) =
+            let converter =
+                Thoth.Json.Net.Converters.Converter(?isCamelCase = isCamelCase, ?extra = extra)
+            let thothFormatter =
+                JsonMediaTypeFormatter
+                    (SerializerSettings = JsonSerializerSettings(Converters = [| converter |]))
+            controllerSettings.Formatters.Clear()
+            controllerSettings.Formatters.Add thothFormatter

src/Thoth.Json.WebApi/Thoth.Json.WebApi.fsproj

@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project Sdk="Microsoft.NET.Sdk">
+  <PropertyGroup>
+    <OutputType>Library</OutputType>
+    <TargetFramework>net46</TargetFramework>
+    <DebugType>portable</DebugType>
+  </PropertyGroup>
+   <ItemGroup>
+        <ProjectReference Include="../Thoth.Json.Net/Thoth.Json.Net.fsproj" />
+    </ItemGroup>
+  <ItemGroup>
+    <Compile Include="Thoth.Json.WebApi.fs" />
+  </ItemGroup>
+  <Import Project="..\..\.paket\Paket.Restore.targets" />
+</Project>

src/Thoth.Json.WebApi/paket.references

@@ -0,0 +1,7 @@
+FSharp.Core
+
+group WebApi
+    Microsoft.AspNet.WebApi 
+    Microsoft.AspNet.WebApi.Core 
+    Microsoft.AspNet.WebApi.Client 
+    Newtonsoft.Json

tests/Main.fs

@@ -30,6 +30,7 @@ open Util.Testing
 let main args =
     testList "All" [ Tests.Decode.tests
                      Tests.Encode.tests
+                     Tests.Converter.tests
                    ]
     |> runTestsWithArgs defaultConfig args
 

tests/Tests.Json.Converter.fs

@@ -0,0 +1,61 @@
+module Tests.Converter
+
+open Newtonsoft.Json
+open Expecto
+open Util.Testing
+
+let encodeWithConverter<'T> (converter: JsonConverter) (space: int) (value: obj) : string =
+    let format = if space = 0 then Formatting.None else Formatting.Indented
+    let settings = JsonSerializerSettings(Converters = [|converter|],
+                                          Formatting = format,
+                                          DateTimeZoneHandling = DateTimeZoneHandling.Utc )
+    JsonConvert.SerializeObject(value, settings)
+
+let decodeStringWithConverter<'T> (converter: JsonConverter) (json: string): Result<'T, string> =
+    try
+        JsonConvert.DeserializeObject<'T>(json, converter) |> Ok
+    with ex ->
+        Error("Given an invalid JSON: " + ex.Message)
+
+
+type MyUnion = Foo of int
+
+type Record2 =
+    { a : float
+      b : float }
+
+type Record9 =
+    { a: int
+      b: string
+      c: (bool * int) list
+      d: MyUnion
+      e: Map<string, Record2>
+      f: System.DateTime
+    }
+
+let tests : Test =
+    testList "Thoth.Json.Converter" [
+
+        testList "Basic" [
+            testCase "roundtrip works" <| fun _ ->
+                let converter = Thoth.Json.Net.Converters.Converter false
+                let json =
+                    { a = 5
+                      b = "bar"
+                      c = [false, 3; true, 5; false, 10]
+                      d = Foo 14
+                      e = Map [("oh", { a = 2.; b = 2. }); ("ah", { a = -1.5; b = 0. })]
+                      f = System.DateTime.Now
+                    } |> encodeWithConverter converter 4
+                let result = decodeStringWithConverter converter json
+                match result with
+                | Error er -> failwith er
+                | Ok r2 ->
+                    equal 5 r2.a
+                    equal "bar" r2.b
+                    equal [false, 3; true, 5; false, 10] r2.c
+                    equal (Foo 14) r2.d
+                    equal -1.5 (Map.find "ah" r2.e).a
+                    equal 2.   (Map.find "oh" r2.e).b
+        ]
+    ]

tests/dotnet/Thoth.Tests.fsproj

@@ -10,6 +10,7 @@
     <Compile Include="../Util.fs" />
     <Compile Include="../Tests.Json.Decode.fs" />
     <Compile Include="../Tests.Json.Encode.fs" />
+    <Compile Include="../Tests.Json.Converter.fs" />
     <Compile Include="../Main.fs" />
   </ItemGroup>
   <Import Project="..\..\.paket\Paket.Restore.targets" />

tests/dotnet/paket.references

@@ -1,2 +1,3 @@
 FSharp.Core
 Expecto
+Newtonsoft.Json