Learn how easy it is to sync an existing GitHub or Google Code repo to a SourceForge project! See Demo

Close

Diff of /PC_Mainboard/Apps/cards/lib/compass.ml [70e6c5] .. [248975] Maximize Restore

  Switch to side-by-side view

--- a/PC_Mainboard/Apps/cards/lib/compass.ml
+++ b/PC_Mainboard/Apps/cards/lib/compass.ml
@@ -8,12 +8,15 @@
  *)
 
 open OBus_type.Perv
+open Lwt
 
 include OBus_interface.Make(struct let name = "fr.krobot.Device.Compass" end)
 
+type t = OBus_proxy.t
+
 let compass = lazy(
   lwt bus = Lazy.force OBus_bus.system in
-  OBus_proxy.make (OBus_peer.make bus "fr.krobot.Device.Compass") [ "fr"; "krobot"; "Devices"; "Compass" ]
+  return (OBus_proxy.make (OBus_peer.make bus "fr.krobot.Device.Compass") [ "fr"; "krobot"; "Devices"; "Compass" ])
 )
 
 OP_method GetCompass as get : int