Commits

badi committed fd0d200

add type signatures

  • Participants
  • Parent commits 449a4fc

Comments (0)

Files changed (1)

   specifyTag    t $ show v
   return t
 
+printStats :: WorkQueue -> IO ()
 printStats q = do
   s <- getStats q
   print $ map ($ s) [tasksRunning, tasksWaiting, tasksComplete]
 
-
+processResult :: WorkQueue -> Task -> IO ()
 processResult q r = do
   putStrLn $ "Got: " ++ show (tag r)
   BS.putStrLn . output $ r