@@ -42,14 +42,16 @@ import Data.OpenApi
4242import Data.OpenApi.Internal.ParamSchema
4343import Data.OpenApi.Internal.Schema
4444import Data.Proxy
45−import Data.Text (Text)
46−import qualified Data.Text as T
4745import Data.Typeable
4846import Deriving.Aeson
4947import GHC.Generics
5048import GHC.TypeLits
5149
52−data Description (desc :: Symbol) = Description
50+#ifdef SERVANT_DESCRIPTION
51+
52+import Servant.API
53+import Data.Text (Text)
54+import qualified Data.Text as T
5355
5456instance (AesonOptions xs) => AesonOptions (Description f ': xs) where
5557 aesonOptions = aesonOptions @xs
@@ -60,6 +62,8 @@ instance KnownSymbol t => OpenApiOptionModifier (Description t) where
6062toTextLine :: forall s. KnownSymbol s => Text
6163toTextLine = "\n\n" <> T.pack (symbolVal (Proxy @s))
6264
65+#endif
66+
6367-- $setup
6468-- >>> import qualified Data.Yaml
6569-- >>> import qualified Data.ByteString.Char8