1 files changed, 7 insertions, 0 deletions
diff --git a/src/Rahm/Desktop/Common.hs b/src/Rahm/Desktop/Common.hs
index 125d651..ae4f531 100644
--- a/src/Rahm/Desktop/Common.hs
+++ b/src/Rahm/Desktop/Common.hs
@@ -20,6 +20,7 @@ module Rahm.Desktop.Common
     pointerWindow,
     getDisplayAndRoot,
     Location (..),
+    Xish(..),
   )
 where
 
@@ -246,3 +247,9 @@ duplWindow = runQuery $ do
             (a : (init -> as)) -> X.safeSpawn a as
             _ -> return ()
         Left err -> logs Info "%s" (err :: String)
+
+class (Monad m) => Xish m where
+  liftFromX :: X a -> m a
+
+instance Xish X where
+  liftFromX = id