Initial

1 files changed, 25 insertions, 0 deletions

diff --git a/Main.hs b/Main.hs
new file mode 100644
index 0000000..fa27ae7
--- /dev/null
+++ b/Main.hs
@@ -0,0 +1,25 @@
+module Main (main) where
+
+import Control.Concurrent
+import Control.Monad (replicateM_)
+import Snap.Http.Server
+import qualified System.Process as Pr
+
+
+makeWorker :: IO ()
+makeWorker = do
+  _ <- forkIO $ do
+    Pr.withCreateProcess (Pr.proc "./sleep.sh" []) $ \_ _ _ _ -> do
+      threadDelay 1000000
+  return ()
+
+makePool :: Int -> IO ()
+makePool numWorkers = replicateM_ numWorkers makeWorker
+
+main :: IO ()
+main = do
+  nprocs <- getNumCapabilities
+  putStrLn $ "Starting worker with " ++ show nprocs ++ " threads (use +RTS -N<n> to set)"
+  _ <- makePool nprocs
+
+  httpServe defaultConfig (return ())