fix: Use -threaded for webservice so it crashes less.

Author: iphydf

github-tools.cabal

@@ -251,7 +251,7 @@ executable hub-settings
 
 executable webservice
   main-is:          webservice.hs
-  ghc-options:      -Wall
+  ghc-options:      -Wall -threaded
   hs-source-dirs:   web
   default-language: Haskell2010
   other-modules:

web/webservice.hs

@@ -32,9 +32,9 @@ runTestServer port = do
 -- Put this all to work!
 main :: IO ()
 main = do
-  -- So real time logging works correctly.
+    -- So real time logging works correctly.
     hSetBuffering stdout LineBuffering
     args <- getArgs
     case args of
         [port] -> runTestServer $ read port
-        _      -> runTestServer =<< read <$> getEnv "PORT"
+        _      -> runTestServer . read =<< getEnv "PORT"