diff --git a/lib/DBus/Common.hs b/lib/DBus/Common.hs
index 382d264..c44196a 100644
--- a/lib/DBus/Common.hs
+++ b/lib/DBus/Common.hs
@@ -21,7 +21,7 @@ startXMonadService = do
 
 stopXMonadService :: Client -> IO ()
 stopXMonadService client = do
-  reply <- releaseName client "org.xmonad"
+  _ <- releaseName client "org.xmonad"
   disconnect client
   return ()