{-# LANGUAGE OverloadedStrings #-}
module Test.Syd.Webdriver.Screenshot.App where
import Network.HTTP.Types as HTTP
import Network.Wai as Wai
exampleApplication :: Wai.Application
exampleApplication req sendResp =
sendResp $
responseLBS
HTTP.ok200
(requestHeaders req)
"Hello World
Foo
Bar
Quux
"