@@ -43,7 +43,7 @@ toEncoder tipe =
43 | Var.isPrim "Int" name -> encode "int"
43 | Var.isPrim "Int" name -> encode "int"
44 | Var.isPrim "Bool" name -> encode "bool"
44 | Var.isPrim "Bool" name -> encode "bool"
45 | Var.isPrim "String" name -> encode "string"
45 | Var.isPrim "String" name -> encode "string"
46− | Var.isJson name -> encode "string"
46+ | Var.isJson name -> encode "value"
47 | Var.isTuple name -> encode "null"
47 | Var.isTuple name -> encode "null"
48 | otherwise -> error "toEncoder: bad type"
48 | otherwise -> error "toEncoder: bad type"