diff options
| author | Talia Ringer | 2019-06-03 10:54:59 -0400 |
|---|---|---|
| committer | Talia Ringer | 2019-06-06 04:58:37 -0400 |
| commit | 75c99f5c048ff8dd7daf0d1692fa91f3ca8aeaff (patch) | |
| tree | 053c7aae588ef5cfaf2c2a3364c76922dcc23791 /doc/plugin_tutorial/tuto1/src/inspector.ml | |
| parent | 4f7af2b09a935528d660a354f5e7672fc92e9a5c (diff) | |
Clean, document, and expand plugin tutorials 0 and 1
Diffstat (limited to 'doc/plugin_tutorial/tuto1/src/inspector.ml')
| -rw-r--r-- | doc/plugin_tutorial/tuto1/src/inspector.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/doc/plugin_tutorial/tuto1/src/inspector.ml b/doc/plugin_tutorial/tuto1/src/inspector.ml new file mode 100644 index 0000000000..d37cbdb74c --- /dev/null +++ b/doc/plugin_tutorial/tuto1/src/inspector.ml @@ -0,0 +1,8 @@ +open Pp + +(* + * Inspect an input and print a feedback message explaining what it is + *) +let print_input (a : 'a) (printer : 'a -> Pp.t) (type_str : string) : unit = + let msg = printer a ++ strbrk (Printf.sprintf " is a %s." type_str) in + Feedback.msg_notice msg |