From ab33c0793f72bae9e5fe974c6e229fb8390508a5 Mon Sep 17 00:00:00 2001
From: Tomas Janousek <tomi@nomi.cz>
Date: Sun, 25 Oct 2009 22:02:46 +0100
Subject: fix X.U.Run.spawnPipe fd leak

Ignore-this: 24375912d505963fafc917a63d0e79a0

darcs-hash:20091025210246-c9ff5-8862b42a8c811c272ae3e3bc864f32f58488e065.gz
---
 XMonad/Util/Run.hs | 1 +
 1 file changed, 1 insertion(+)

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
-- 
cgit v1.2.3