REF remove print statement

This commit is contained in:
Nathan Dwarshuis 2020-03-25 18:35:04 -04:00
parent e8cf056301
commit 9879d7f43c
1 changed files with 8 additions and 9 deletions

View File

@ -10,18 +10,18 @@ module DBus.Screensaver
, matchSignal
) where
import Control.Monad (void)
import Control.Monad (void)
import DBus
import DBus.Client
import DBus.Internal
import DBus
import DBus.Client
import DBus.Internal
import Graphics.X11.Xlib.Display
import Graphics.X11.XScreenSaver
import Graphics.X11.Xlib.Display
import Graphics.X11.XScreenSaver
import Shell
import Shell
import XMonad
import XMonad
--------------------------------------------------------------------------------
-- | Low-level functions
@ -42,7 +42,6 @@ query :: IO SSState
query = do
dpy <- openDisplay ""
xssi <- xScreenSaverQueryInfo dpy
print xssi
closeDisplay dpy
return $ case xssi of
Just XScreenSaverInfo { xssi_state = ScreenSaverDisabled } -> False