cleaned up some warning

diff --git a/lib/view.ml b/lib/view.ml
index e4bc0f259264879dcf8a5957c853488834a6475b..b47a9ce22a1a224054a47e5db8070effb26c0ce6 100644 (file)
--- 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 =