Skip to content

Instantly share code, notes, and snippets.

@gsg

gsg/test.ml

Created February 15, 2015 18:58
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save gsg/44e1e72330c99d9e8320 to your computer and use it in GitHub Desktop.
Save gsg/44e1e72330c99d9e8320 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
test.ml
module Test : sig
val f : unit -> unit
end = struct
exception Foo
exception Bar of exn
let f () = raise (Bar Foo)
end
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment