From 456f9fb6e6d743702fcca79f4d23e1e5f40c530d Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Sat, 8 Oct 2011 05:12:41 +0200 Subject: Adjust to patched xhb version --- lib/Phi/Widgets/X11/Taskbar.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lib/Phi/Widgets/X11/Taskbar.hs') 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) -- cgit v1.2.3