X-Git-Url: http://git.annexia.org/?p=virt-top.git;a=blobdiff_plain;f=virt-top%2Fvirt_top.ml;h=3990b559c0d863c6dd6b1cc030310513294bf134;hp=4fb7b473ad11ebe4245a1db03e21bf6053138015;hb=49c5f041be5d1482ab497ed91b1c71e054d7e49d;hpb=10d17d2a88b041b111a72a760caa1c0571bfac92;ds=sidebyside

diff --git a/virt-top/virt_top.ml b/virt-top/virt_top.ml
index 4fb7b47..3990b55 100644
--- a/virt-top/virt_top.ml
+++ b/virt-top/virt_top.ml
@@ -1,5 +1,5 @@
 (* 'top'-like tool for libvirt domains.
-   (C) Copyright 2007 Richard W.M. Jones, Red Hat Inc.
+   (C) Copyright 2007-2009 Richard W.M. Jones, Red Hat Inc.
    http://libvirt.org/
 
    This program is free software; you can redistribute it and/or modify
@@ -1174,7 +1174,7 @@ let redraw =
 
     (* Display historical CPU time. *)
     let () =
-      let x, y = historical_cursor in (* Yes, it's a bug in ocaml-curses *)
+      let y, x = historical_cursor in
       let maxwidth = cols - x in
       let line =
 	String.concat " "