λ> main
Null


import Test.WebDriver
import Test.WebDriver.JSON (ignoreReturn)
import Test.WebDriver.Session
import Control.Monad.IO.Class
import Data.Aeson.Types

chromecfg :: WDConfig
chromecfg = useBrowser chrome defaultConfig
            { wdHost           = "localhost"
            , wdPort           = 1234
            , wdHTTPRetryCount = 50
            , wdCapabilities   = defaultCaps
            }

main :: IO WDSession
main = do
  s <- runSession chromecfg getSession
  runWD s $ do
    ignoreReturn $ executeJS [] "Object.defineProperty(navigator, 'languages', {get: function() {return ['foo', 'bar'];}, });"
    liftIO . print =<< (executeJS [] "navigator.language" :: WD Value)
    liftIO . print =<< (executeJS [] "navigator.languages" :: WD Value)
    openPage "https://intoli.com/blog/not-possible-to-block-chrome-headless/chrome-headless-test.html"
    return ()
  return s