ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lib/DBus/Screensaver.hs
View File

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