FIX missed a spot

2023-01-02 19:50:44 -05:00 · 2023-01-02 19:50:44 -05:00 · 0895586cf7
parent 12b68f7377
commit 0895586cf7
1 changed files with 1 additions and 1 deletions
--- a/lib/XMonad/Internal/Concurrent/ACPIEvent.hs
+++ b/lib/XMonad/Internal/Concurrent/ACPIEvent.hs
@ -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

 --------------------------------------------------------------------------------