main :: IO ()
main = do
  sock <- listenOn lohPort
  rpoo <- newMVar M.empty
  forkIO $ forever $ forkIO (runJobs rpoo) >> threadDelay 60000000
  forever $ do
    (h, _, _) <- accept sock
    forkIO $ getJob h rpoo
 where
  lohPort = PortNumber 9114
main :: IO ()
main = do
  sock <- listenOn lohPort
  rpoo <- newMVar M.empty
  forkIO $ forever $ forkIO (runJobs rpoo) >> threadDelay 60000000
  forever $ do
    (h, _, _) <- accept sock
    forkIO $ getJob h rpoo
 where
  lohPort = PortNumber 9114
main = do
  sock <- listenOn lohPort
  rpoo <- newMVar M.empty
  forkIO $ forever $ forkIO (runJobs rpoo) >> threadDelay 60000000
  forever $ do
    (h, _, _) <- accept sock
    forkIO $ getJob h rpoo
 where
  lohPort = PortNumber 9114