1 files changed, 2 insertions, 0 deletions

diff --git a/Presence/Server.hs b/Presence/Server.hs
index 312634cf..14eab06c 100644
--- a/Presence/Server.hs
+++ b/Presence/Server.hs
@@ -193,6 +193,8 @@ data Server a
           , retrymap :: TVar (Map SockAddr (TVar Bool,InterruptableDelay))
           }
 
+control sv = atomically . putTMVar (serverCommand sv)
+
 -- | Construct a 'Server' object.  Use 'Control.Monad.Trans.Resource.ResourceT'
 -- to ensure proper cleanup.  For example,
 --