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

REF remove debug print

This commit is contained in:
Nathan Dwarshuis 2020-03-14 02:08:59 -04:00
parent efdae569d1
commit 97b0dc2e8b
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
xmonad.hs
View File

@ -204,7 +204,6 @@ myEventHook ClientMessageEvent { ev_message_type = t, ev_data = d }
if | magic == magicString -> removeEmptyWorkspaceByTag' tag if | magic == magicString -> removeEmptyWorkspaceByTag' tag
| magic == acpiMagic -> do | magic == acpiMagic -> do
let acpiTag = readMaybe tag :: Maybe ACPIEvent let acpiTag = readMaybe tag :: Maybe ACPIEvent
io $ print acpiTag
forM_ acpiTag $ \case forM_ acpiTag $ \case
Power -> myPowerPrompt Power -> myPowerPrompt
Sleep -> confirmPrompt myPromptTheme "suspend?" runSuspend Sleep -> confirmPrompt myPromptTheme "suspend?" runSuspend