REF remove old print code
This commit is contained in:
parent
77204f8177
commit
0c037acaac
|
@ -1,7 +1,5 @@
|
||||||
module Xmobar.Screensaver where
|
module Xmobar.Screensaver where
|
||||||
|
|
||||||
-- import Control.Monad
|
|
||||||
|
|
||||||
import Graphics.X11.Xlib.Display
|
import Graphics.X11.Xlib.Display
|
||||||
import Graphics.X11.XScreenSaver
|
import Graphics.X11.XScreenSaver
|
||||||
|
|
||||||
|
@ -20,7 +18,6 @@ run' :: (String, String, String) -> IO String
|
||||||
run' (text, colorOn, colorOff) = do
|
run' (text, colorOn, colorOff) = do
|
||||||
dpy <- openDisplay ""
|
dpy <- openDisplay ""
|
||||||
xssi <- xScreenSaverQueryInfo dpy
|
xssi <- xScreenSaverQueryInfo dpy
|
||||||
print "hi"
|
|
||||||
closeDisplay dpy
|
closeDisplay dpy
|
||||||
return $ case xssi of
|
return $ case xssi of
|
||||||
Just x -> wrapColor text
|
Just x -> wrapColor text
|
||||||
|
|
Loading…
Reference in New Issue