reintroduced run as an Exec method: this way it is possible to write plugins by defining either run or start

darcs-hash:20071003110609-d6583-68205f8664c81ff7e3349ee67d32ffd4f91881b1.gz

1 files changed, 6 insertions, 0 deletions

diff --git a/Commands.hs b/Commands.hs
index 9c6df7a..eaa0db1 100644
--- a/Commands.hs
+++ b/Commands.hs
@@ -28,7 +28,13 @@ import System.IO (hClose, hGetLine)
 class Show e => Exec e where
     alias :: e -> String
     alias e = takeWhile (not . isSpace) $ show e
+    run :: e -> IO String
+    run _ = return ""
     start :: e -> (String -> IO ()) -> IO ()
+    start e cb = go
+        where go = do
+                run e >>= cb
+                tenthSeconds 10 >> go
 
 data Command = Com Program Args Alias Rate
                deriving (Show,Read,Eq)