From e6c22f3308f3f5ed8fd573cde0a9f85a5ce20cae Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Tue, 17 Jul 2007 23:11:38 +0200
Subject: execCommands is a mapM

darcs-hash:20070717211138-a5988-1ce4ccefb8b6468fc63ca8b98564881536ca60c2.gz
---
 Xmobar.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'Xmobar.hs')

diff --git a/Xmobar.hs b/Xmobar.hs
index 6e598d7..4da9486 100644
--- a/Xmobar.hs
+++ b/Xmobar.hs
@@ -185,11 +185,7 @@ printStrings p gc fontst offs sl@((s,c,l):xs) =
 -- | Runs a list of programs as independent threads and returns their thread id
 -- and the MVar they will be writing to.
 execCommands :: Config -> [(Runnable,String,String)] -> IO [(ThreadId, MVar String)]
-execCommands _ [] = return []
-execCommands c (x:xs) =
-    do i <- execCommand c x
-       is <- execCommands c xs
-       return $ i : is
+execCommands c xs = mapM (execCommand c) xs
 
 execCommand :: Config -> (Runnable,String,String) -> IO (ThreadId, MVar String)
 execCommand c com = 
-- 
cgit v1.2.3