diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2011-01-14 23:45:43 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2011-01-14 23:45:43 +0100 |
| commit | 3c9b2b38bd216e2d308f3b00cf7baee52266b1be (patch) | |
| tree | 44c2762c39ea0e327c56d9c83b320f6dfc7f4ce0 /src | |
| parent | bfbbe753e83efa25bc3408e61fe86c6223e6c695 (diff) | |
| download | xmobar-3c9b2b38bd216e2d308f3b00cf7baee52266b1be.tar.gz xmobar-3c9b2b38bd216e2d308f3b00cf7baee52266b1be.tar.bz2 | |
Whitespace
Diffstat (limited to 'src')
| -rw-r--r-- | src/Commands.hs | 4 |
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) |