summaryrefslogtreecommitdiffstats
path: root/lib/Phi/Widgets
diff options
context:
space:
mode:
authorMatthias Schiffer <mschiffer@universe-factory.net>2011-10-08 05:12:41 +0200
committerMatthias Schiffer <mschiffer@universe-factory.net>2011-10-08 05:12:41 +0200
commit456f9fb6e6d743702fcca79f4d23e1e5f40c530d (patch)
tree5d5558f02ae3420271bffc3336fada200abcee63 /lib/Phi/Widgets
parent579552b29b396943c3a2c97456c37c8005729ce1 (diff)
downloadphi-456f9fb6e6d743702fcca79f4d23e1e5f40c530d.tar
phi-456f9fb6e6d743702fcca79f4d23e1e5f40c530d.zip
Adjust to patched xhb version
Diffstat (limited to 'lib/Phi/Widgets')
-rw-r--r--lib/Phi/Widgets/X11/Taskbar.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Phi/Widgets/X11/Taskbar.hs b/lib/Phi/Widgets/X11/Taskbar.hs
index 964fd39..359fbc6 100644
--- a/lib/Phi/Widgets/X11/Taskbar.hs
+++ b/lib/Phi/Widgets/X11/Taskbar.hs
@@ -40,6 +40,7 @@ import Graphics.Rendering.Pango.Layout
import Graphics.Rendering.Pango.Font
import Graphics.XHB
+import Graphics.XHB.Connection
import Graphics.XHB.Gen.Xproto
import Codec.Binary.UTF8.String
@@ -624,7 +625,7 @@ getWindowGeometry x11 window =
fi :: (Integral a, Num b) => a -> b
fi = fromIntegral
-showWindow :: Connection -> Atoms -> WINDOW -> IO Bool
+showWindow :: ConnectionClass c r => c -> Atoms -> WINDOW -> IO Bool
showWindow conn atoms window = do
states <- liftM (map (fromXid . toXid) . fromMaybe []) $ getProperty32 conn window (atom_NET_WM_STATE atoms)
transientFor <- liftM (map fromIntegral . fromMaybe []) $ getProperty32 conn window (atomWM_TRANSIENT_FOR atoms)