summaryrefslogtreecommitdiffhomepage
path: root/src
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2011-01-14 23:45:43 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2011-01-14 23:45:43 +0100
commit3c9b2b38bd216e2d308f3b00cf7baee52266b1be (patch)
tree44c2762c39ea0e327c56d9c83b320f6dfc7f4ce0 /src
parentbfbbe753e83efa25bc3408e61fe86c6223e6c695 (diff)
downloadxmobar-3c9b2b38bd216e2d308f3b00cf7baee52266b1be.tar.gz
xmobar-3c9b2b38bd216e2d308f3b00cf7baee52266b1be.tar.bz2
Whitespace
Diffstat (limited to 'src')
-rw-r--r--src/Commands.hs4
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Commands.hs b/src/Commands.hs
index d205dbf..38d0aed 100644
--- a/src/Commands.hs
+++ b/src/Commands.hs
@@ -41,9 +41,7 @@ class Show e => Exec e where
run _ = return ""
start :: e -> (String -> IO ()) -> IO ()
start e cb = go
- where go = do
- run e >>= cb
- tenthSeconds (rate e) >> go
+ where go = run e >>= cb >> tenthSeconds (rate e) >> go
data Command = Com Program Args Alias Rate
deriving (Show,Read,Eq)