REF remove print statement
This commit is contained in:
parent
e8cf056301
commit
9879d7f43c
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue