FIX delay in displaying keys

2022-12-29 15:04:48 -05:00 · 2022-12-29 15:04:48 -05:00 · aa3979b36f
parent 0b8f79a968
commit aa3979b36f
1 changed files with 1 additions and 0 deletions
--- a/lib/XMonad/Internal/Command/DMenu.hs
+++ b/lib/XMonad/Internal/Command/DMenu.hs
@ -203,6 +203,7 @@ showKeys :: [((KeyMask, KeySym), NamedAction)] -> X ()
 showKeys kbs = do
  h <- spawnPipe cmd
  io $ hPutStr h $ unlines $ showKm kbs
+  io $ hClose h
  where
    cmd = fmtCmd myDmenuCmd $ ["-dmenu", "-p", "commands"]
      ++ themeArgs "#7f66ff" ++ myDmenuMatchingArgs