29 lines
783 B
Haskell
29 lines
783 B
Haskell
|
{-# LANGUAGE DataKinds #-}
|
||
|
|
{-# LANGUAGE TypeOperators #-}
|
||
|
|
|
||
|
|
import Network.Wai.Handler.Warp
|
||
|
|
import Servant
|
||
|
|
import System.IO
|
||
|
|
|
||
|
|
import Servant.Client.TestServer.GHC
|
||
|
|
import Servant.Client.TestServer.Types
|
||
|
|
import Servant.ClientSpec
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = do
|
||
|
|
(port, socket) <- openTestSocket
|
||
|
|
let settings =
|
||
|
|
setPort port $
|
||
|
|
setBeforeMainLoop (print port >> hFlush stdout) $
|
||
|
|
defaultSettings
|
||
|
|
runSettingsSocket settings socket $
|
||
|
|
serve testServerApi $ \ testServerName request respond -> do
|
||
|
|
app <- testServerApp <$> lookupTestServer testServerName
|
||
|
|
app request respond
|
||
|
|
|
||
|
|
type TestServerApi =
|
||
|
|
Capture "testServerName" String :> Raw
|
||
|
|
|
||
|
|
testServerApi :: Proxy TestServerApi
|
||
|
|
testServerApi = Proxy
|