diff --git a/Emulsion.Tests/Actors/Xmpp.fs b/Emulsion.Tests/Actors/Xmpp.fs index 14e92906..39f8f340 100644 --- a/Emulsion.Tests/Actors/Xmpp.fs +++ b/Emulsion.Tests/Actors/Xmpp.fs @@ -13,7 +13,7 @@ type XmppTest() = [] member this.``XMPP actor should pass an outgoing message to the XMPP module``() = let mutable sentMessage = None - let xmpp : IMessageSystem = { + let xmpp = { new IMessageSystem with member __.Run _ = () member __.PutMessage message = diff --git a/Emulsion/Actors/Xmpp.fs b/Emulsion/Actors/Xmpp.fs index 287c73f2..6762dbfb 100644 --- a/Emulsion/Actors/Xmpp.fs +++ b/Emulsion/Actors/Xmpp.fs @@ -12,7 +12,7 @@ type XmppActor(xmpp: IMessageSystem) as this = let spawn (xmpp: IMessageSystem) (factory: IActorRefFactory) - (name: string) = + (name: string): IActorRef = printfn "Spawning XMPP..." let props = Props.Create(xmpp) factory.ActorOf(props, name) diff --git a/Emulsion/Xmpp/XmppClient.fs b/Emulsion/Xmpp/XmppClient.fs index ea46ede2..60c1b17d 100644 --- a/Emulsion/Xmpp/XmppClient.fs +++ b/Emulsion/Xmpp/XmppClient.fs @@ -1,9 +1,10 @@ module Emulsion.Xmpp.XmppClient +open System.Threading.Tasks + open SharpXMPP open SharpXMPP.XMPP -open System.Threading.Tasks open Emulsion open Emulsion.Settings