func-serializer.fsx

#r "nuget:FsPickler"
#r "nuget:FsPickler.Json"
#r "nuget:FSharp.Quotations.Evaluator"

open MBrace.FsPickler
open MBrace.FsPickler.Json
open FSharp.Quotations
open FSharp.Quotations.Evaluator
open System.IO
open System.Text

let serializer = JsonSerializer(indent = true)
let utf8 = UTF8Encoding(false)

let toJson (x: 'a) =
    use stream = new MemoryStream()
    serializer.Serialize(stream, x)
    stream.ToArray() |> utf8.GetString

let parseJson<'a> json =
    use reader = new StringReader(json)
    serializer.Deserialize<'a>(reader)


let oh = 42
let f = <@ fun x -> x + oh @>

let serialized = toJson f

let deserialized = parseJson<Expr<int -> int>> serialized

let increment = deserialized |> QuotationEvaluator.Evaluate

increment 1, serialized