From 75c99f5c048ff8dd7daf0d1692fa91f3ca8aeaff Mon Sep 17 00:00:00 2001
From: Talia Ringer
Date: Mon, 3 Jun 2019 10:54:59 -0400
Subject: Clean, document, and expand plugin tutorials 0 and 1

---
 doc/plugin_tutorial/tuto1/src/inspector.ml | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 doc/plugin_tutorial/tuto1/src/inspector.ml

(limited to 'doc/plugin_tutorial/tuto1/src/inspector.ml')

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
-- 
cgit v1.2.3