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

FIX missed a spot

This commit is contained in:
Nathan Dwarshuis 2023-01-02 19:50:44 -05:00
parent 12b68f7377
commit 0895586cf7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/XMonad/Internal/Concurrent/ACPIEvent.hs
View File

@ -98,7 +98,7 @@ handleACPI fb lock tag = do
LidClose -> do LidClose -> do
status <- io isDischarging status <- io isDischarging
-- only run suspend if battery exists and is discharging -- only run suspend if battery exists and is discharging
forM_ status $ flip when runSuspend forM_ status $ flip when $ liftIO runSuspend
lock lock
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------