From: Michael D. Lowis Date: Thu, 25 Jan 2018 00:08:08 +0000 (-0500) Subject: cleaned up some warning X-Git-Url: https://git.mdlowis.com/?a=commitdiff_plain;h=04f91964ca57a05a17539ffa6041a4e9aa5be041;p=archive%2Ftide-ocaml.git cleaned up some warning --- 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 =