Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Test script
  • Loading branch information
VictorNicollet committed May 20, 2012
1 parent 8b514e4 commit 2c79322
Showing 1 changed file with 31 additions and 0 deletions.
31 changes: 31 additions & 0 deletions p4/test.ml
@@ -0,0 +1,31 @@
module Json = struct
type t =
| Null
| Array of t list
| Object of (string * t) list
| Float of float
| Int of int
| Bool of bool
| String of string

let to_string _ = "."

exception Error of string
end

module A = struct
module B = struct
type json t = int
let to_json = json_of_t
let of_json = t_of_json
end
end

type json t = {
ab : A.B.t ;
a : int ;
?b : string option ;
?c : int = (3+3)
}


0 comments on commit 2c79322

Please sign in to comment.