FIX missed a spot
This commit is contained in:
parent
12b68f7377
commit
0895586cf7
|
@ -98,7 +98,7 @@ handleACPI fb lock tag = do
|
|||
LidClose -> do
|
||||
status <- io isDischarging
|
||||
-- only run suspend if battery exists and is discharging
|
||||
forM_ status $ flip when runSuspend
|
||||
forM_ status $ flip when $ liftIO runSuspend
|
||||
lock
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
|
|
Loading…
Reference in New Issue