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

Co-authored-by: fisx <[email protected]>
haskell-servant · Jul 31, 2020 · 7cc95a8 · 7cc95a8
1 parent e1a9191
commit 7cc95a8
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/Servant/QuickCheck/Internal/QuickCheck.hs b/src/Servant/QuickCheck/Internal/QuickCheck.hs
@@ -42,11 +42,10 @@ withServantServer api = withServantServerAndContext api EmptyContext
 -- /Since 0.0.0.0/
 #if MIN_VERSION_servant_server(0,18,0)
 withServantServerAndContext :: (HasServer a ctx, HasContextEntry (ctx .++ DefaultErrorFormatters) ErrorFormatters)
-   => Proxy a -> Context ctx -> IO (Server a) -> (BaseUrl -> IO r) -> IO r
 #else
 withServantServerAndContext :: HasServer a ctx
-  => Proxy a -> Context ctx -> IO (Server a) -> (BaseUrl -> IO r) -> IO r
 #endif
+  => Proxy a -> Context ctx -> IO (Server a) -> (BaseUrl -> IO r) -> IO r
 withServantServerAndContext api ctx server t
   = withApplication (return . serveWithContext api ctx =<< server) $ \port ->
       t (BaseUrl Http "localhost" port "")