7cc95a8 · servant-quickcheck

git.iko.soy/servant-quickcheck

Update src/Servant/QuickCheck/Internal/QuickCheck.hs

Co-authored-by: fisx <mf@zerobuzz.net>

commit7cc95a81202d4c84751a9e8f5dd5a3c3a1a1d7cc authorMaxim Koltsov <kolmax94@gmail.com> dateFri 31 Jul 2020, 10:43 (6 years ago) parente1a9191

1 file changed+1−2

unifiedsplit

src/Servant/QuickCheck/Internal/QuickCheck.hs+1−2

@@ -42,11 +42,10 @@ withServantServer api = withServantServerAndContext api EmptyContext

4242-- /Since 0.0.0.0/

4343#if MIN_VERSION_servant_server(0,18,0)

4444withServantServerAndContext :: (HasServer a ctx, HasContextEntry (ctx .++ DefaultErrorFormatters) ErrorFormatters)

45− => Proxy a -> Context ctx -> IO (Server a) -> (BaseUrl -> IO r) -> IO r

4645#else

4746withServantServerAndContext :: HasServer a ctx

48− => Proxy a -> Context ctx -> IO (Server a) -> (BaseUrl -> IO r) -> IO r

4947#endif

48+ => Proxy a -> Context ctx -> IO (Server a) -> (BaseUrl -> IO r) -> IO r

5049withServantServerAndContext api ctx server t

5150 = withApplication (return . serveWithContext api ctx =<< server) $ \port ->

5251 t (BaseUrl Http "localhost" port "")