diff options
| author | Pierre-Marie Pédrot | 2019-06-06 21:33:30 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-06-06 21:33:30 +0200 |
| commit | 53e97e17e363e5b6f808b7e8d2f7eab69e236705 (patch) | |
| tree | 1b1f32b16d9e45a0a6d5d987f7527c2f22c2c6d2 /doc/plugin_tutorial/tuto1/src/inspector.ml | |
| parent | 20ee51330564b9ae6c3d3d0981db5184f99572ed (diff) | |
| parent | 75c99f5c048ff8dd7daf0d1692fa91f3ca8aeaff (diff) | |
Merge PR #10304: Clean up tuto0 and tuto1 to use better practices and explain more
Ack-by: SkySkimmer
Reviewed-by: gares
Reviewed-by: ppedrot
Ack-by: tlringer
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 |