diff options
| -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) |