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