@@ -35,7 +35,8 @@ import Test.WebDriver (WD)
35import qualified GHCJS.DOM.Types as DOM
35import qualified GHCJS.DOM.Types as DOM
36import qualified GHCJS.DOM.File as File
36import qualified GHCJS.DOM.File as File
38−--import System.IO.Silently
38+import System.IO (stderr)
39+import System.IO.Silently
39import System.IO.Temp
40import System.IO.Temp
40import System.Directory
41import System.Directory
41import qualified System.FilePath as FilePath
42import qualified System.FilePath as FilePath
@@ -668,7 +669,7 @@ testWidget' beforeJS afterSwitchover bodyWidget = maybe (error "test timed out")
668 let port = 3911 -- TODO
669 let port = 3911 -- TODO
669 let settings = Warp.setPort port Warp.defaultSettings
670 let settings = Warp.setPort port Warp.defaultSettings
670 -- hSilence to get rid of ConnectionClosed logs
671 -- hSilence to get rid of ConnectionClosed logs
671− jsaddleWarp = forkIO $ Warp.runSettings settings application
672+ jsaddleWarp = forkIO $ hSilence [stderr] $ Warp.runSettings settings application
672 bracket jsaddleWarp killThread $ \_ -> do
673 bracket jsaddleWarp killThread $ \_ -> do
673 WD.runSession chromeConfig . WD.finallyClose $ do
674 WD.runSession chromeConfig . WD.finallyClose $ do
674 WD.openPage $ "http://localhost:" <> show port
675 WD.openPage $ "http://localhost:" <> show port