From 03ced99303e75d20a19e3923965a91d924f7380c Mon Sep 17 00:00:00 2001
From: Brent Yorgey <byorgey@gmail.com>
Date: Fri, 28 Mar 2008 21:54:46 +0100
Subject: Util.Run, Hooks.DynamicLog: re-export hPutStrLn and hPutStr from
 Util.Run for convenience, and update DynamicLog documentation to show proper
 imports

darcs-hash:20080328205446-bd4d7-ae6c9a13c69620ec5edef7d34086236974c0c631.gz
---
 XMonad/Config/Arossato.hs  | 1 -
 XMonad/Hooks/DynamicLog.hs | 2 ++
 XMonad/Util/Run.hs         | 4 +++-
 3 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/XMonad/Config/Arossato.hs b/XMonad/Config/Arossato.hs
index 48b33e9..a30bb09 100644
--- a/XMonad/Config/Arossato.hs
+++ b/XMonad/Config/Arossato.hs
@@ -20,7 +20,6 @@ module XMonad.Config.Arossato
     ) where
 
 import qualified Data.Map as M
-import System.IO (hPutStrLn)
 
 import XMonad hiding ( (|||) )
 import qualified XMonad.StackSet as W
diff --git a/XMonad/Hooks/DynamicLog.hs b/XMonad/Hooks/DynamicLog.hs
index 9dec934..ecfc807 100644
--- a/XMonad/Hooks/DynamicLog.hs
+++ b/XMonad/Hooks/DynamicLog.hs
@@ -101,6 +101,8 @@ import XMonad.Hooks.UrgencyHook
 -- appropriately, either by putting it in your @.xsession@ or similar
 -- file, or by using @spawnPipe@ in your @main@ function, for example:
 --
+-- > import XMonad.Util.Run   -- for spawnPipe and hPutStrLn
+-- >
 -- > main = do
 -- >     h <- spawnPipe "xmobar -options -foo -bar"
 -- >     xmonad $ defaultConfig {
diff --git a/XMonad/Util/Run.hs b/XMonad/Util/Run.hs
index 3c5fb0c..f077629 100644
--- a/XMonad/Util/Run.hs
+++ b/XMonad/Util/Run.hs
@@ -25,7 +25,9 @@ module XMonad.Util.Run (
                           runInTerm,
                           safeRunInTerm,
                           seconds,
-                          spawnPipe
+                          spawnPipe,
+
+                          hPutStr, hPutStrLn  -- re-export for convenience
                          ) where
 
 import System.Posix.IO
-- 
cgit v1.2.3