aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTomas Janousek <tomi@nomi.cz>2009-10-25 22:02:46 +0100
committerTomas Janousek <tomi@nomi.cz>2009-10-25 22:02:46 +0100
commitab33c0793f72bae9e5fe974c6e229fb8390508a5 (patch)
tree5064ecd59895bbe039e336b384eb8bb135c81e30
parent70cdadc9b758bd1fee4a182a5be61d73b793021a (diff)
downloadXMonadContrib-ab33c0793f72bae9e5fe974c6e229fb8390508a5.tar.gz
XMonadContrib-ab33c0793f72bae9e5fe974c6e229fb8390508a5.tar.xz
XMonadContrib-ab33c0793f72bae9e5fe974c6e229fb8390508a5.zip
fix X.U.Run.spawnPipe fd leak
Ignore-this: 24375912d505963fafc917a63d0e79a0 darcs-hash:20091025210246-c9ff5-8862b42a8c811c272ae3e3bc864f32f58488e065.gz
-rw-r--r--XMonad/Util/Run.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/XMonad/Util/Run.hs b/XMonad/Util/Run.hs
index bc35d9c..9057747 100644
--- a/XMonad/Util/Run.hs
+++ b/XMonad/Util/Run.hs
@@ -141,4 +141,5 @@ spawnPipe x = do
uninstallSignalHandlers
dupTo rd stdInput
executeFile "/bin/sh" False ["-c", x] Nothing
+ closeFd rd
return h