Merge pull request #1 from johnelse/api-messages

Use Api_messages to get message priority

Author: Jon Ludlam

.gitignore

@@ -1,8 +1,3 @@
 *.swp
-_build/
-setup.data
-setup.log
-setup.bin
 
-networkd.native
-networkd_db.native
+dist/

networkd/network_monitor_thread.ml

@@ -41,7 +41,7 @@ let send_bond_change_alert dev interfaces message =
 			let obj_uuid = Inventory.lookup Inventory._installation_uuid in
 			let body = Printf.sprintf	"The status of the %s bond %s" ifaces message in
 			try
-				let (name, priority) = ("bond_status_changed",3L) (* Api_messages.bond_status_changed *) in
+				let (name, priority) = Api_messages.bond_status_changed in
 				let (_ : API.ref_message) = XenAPI.Message.create ~rpc:xapi_rpc ~session_id
 					~name ~priority ~cls:`Host ~obj_uuid ~body in ()
 			with _ ->