From 04f91964ca57a05a17539ffa6041a4e9aa5be041 Mon Sep 17 00:00:00 2001
From: "Michael D. Lowis" <mike.lowis@gentex.com>
Date: Wed, 24 Jan 2018 19:08:08 -0500
Subject: [PATCH] cleaned up some warning

---
 lib/view.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/view.ml b/lib/view.ml
index e4bc0f2..b47a9ce 100644
--- a/lib/view.ml
+++ b/lib/view.ml
@@ -27,7 +27,8 @@ let get_col_offset buf off w x =
   let measure_rune c =
     if c == 0xA || c == 0xD then false
     else begin
-      Draw.Cursor.next_glyph csr c;
+      let open Draw.Cursor in
+      let _ = next_glyph csr c in
       let clicked = (csr.x > x) in
       (if not clicked then off := !off + 1);
       (not clicked && (csr.x > 0))
@@ -36,7 +37,6 @@ let get_col_offset buf off w x =
   Buf.iter measure_rune buf !off;
   !off
 
-
 let get_at view x y =
   let sx,sy = view.pos and w,h = view.dim in
   let off =
-- 
2.51.0