Skip to content

Commit cc93a74

Browse files
committed
Fence the MultiVerb support code behind CPP for servant
1 parent 4005975 commit cc93a74

File tree

1 file changed

+2
-0
lines changed

1 file changed

+2
-0
lines changed

src/Servant/OpenApi/Internal.hs

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -469,6 +469,7 @@ instance (ToResponseHeader h, AllToResponseHeader hs) => AllToResponseHeader (h
469469
instance AllToResponseHeader hs => AllToResponseHeader (HList hs) where
470470
toAllResponseHeaders _ = toAllResponseHeaders (Proxy :: Proxy hs)
471471

472+
#if MIN_VERSION_servant(0,20,3)
472473
type DeclareDefinition = Declare (Definitions Schema)
473474

474475
class IsSwaggerResponse a where
@@ -620,3 +621,4 @@ instance
620621
. List.listToMaybe
621622
. toList
622623
refResps = Inline . addMime <$> resps
624+
#endif

0 commit comments

Comments
 (0)