diff --git a/bin/xmonad.hs b/bin/xmonad.hs
index 5c06402..add49b6 100644
--- a/bin/xmonad.hs
+++ b/bin/xmonad.hs
@@ -90,8 +90,7 @@ run = do
   hSetBuffering stdout LineBuffering
   withCache $ do
     withDBusX_ $ \db -> do
-      let sys = dbSysClient db
-      let fs = features sys
+      let fs = features $ dbSysClient db
       startDBusInterfaces db fs
       withXmobar $ \xmobarP -> do
         withChildDaemons fs $ \ds -> do