sydtest-webdriver-0.0.0.0: test/Test/Syd/Webdriver/App.hs

module Test.Syd.Webdriver.App where

import Network.HTTP.Types as HTTP
import Network.Wai as Wai

exampleApplication :: Wai.Application
exampleApplication req sendResp = do
  lb <- strictRequestBody req
  sendResp $ responseLBS HTTP.ok200 (requestHeaders req) lb