From 3c9b2b38bd216e2d308f3b00cf7baee52266b1be Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Fri, 14 Jan 2011 23:45:43 +0100 Subject: Whitespace --- src/Commands.hs | 4 +--- 1 file changed, 1 insertion(+), 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) -- cgit v1.2.3