@@ -42,16 +42,14 @@ import Data.OpenApi
42import Data.OpenApi.Internal.ParamSchema
42import Data.OpenApi.Internal.ParamSchema
43import Data.OpenApi.Internal.Schema
43import Data.OpenApi.Internal.Schema
44import Data.Proxy
44import Data.Proxy
45+import Data.Text (Text)
46+import qualified Data.Text as T
45import Data.Typeable
47import Data.Typeable
46import Deriving.Aeson
48import Deriving.Aeson
47import GHC.Generics
49import GHC.Generics
48import GHC.TypeLits
50import GHC.TypeLits
50−#ifdef SERVANT_DESCRIPTION
52+data Description (desc :: Symbol) = Description
53−import Data.Text (Text)
54−import qualified Data.Text as T
56instance (AesonOptions xs) => AesonOptions (Description f ': xs) where
54instance (AesonOptions xs) => AesonOptions (Description f ': xs) where
57 aesonOptions = aesonOptions @xs
55 aesonOptions = aesonOptions @xs
@@ -62,8 +60,6 @@ instance KnownSymbol t => OpenApiOptionModifier (Description t) where
62toTextLine :: forall s. KnownSymbol s => Text
60toTextLine :: forall s. KnownSymbol s => Text
63toTextLine = "\n\n" <> T.pack (symbolVal (Proxy @s))
61toTextLine = "\n\n" <> T.pack (symbolVal (Proxy @s))
68-- >>> import qualified Data.Yaml
64-- >>> import qualified Data.Yaml
69-- >>> import qualified Data.ByteString.Char8
65-- >>> import qualified Data.ByteString.Char8