git.iko.soy/deriving-openapi3
on master help sign in
Do not rely on servant to get description (#7)
commitc1f8c66f2ce28bf7b6c77f8e27ac951acddf8e06 authorVille Tirronen <ville@typeable.io> dateTue 3 May 2022, 19:14 (4 years ago) parentc602f2b
1 file changed+3−7
src/Deriving/OpenApi.hs+3−7
src/Deriving/OpenApi.hs+3−7
@@ -42,16 +42,14 @@ 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
4547import Data.Typeable
4648import Deriving.Aeson
4749import GHC.Generics
4850import GHC.TypeLits
4951
50−#ifdef SERVANT_DESCRIPTION
51−
52−import Servant.API
53−import Data.Text (Text)
54−import qualified Data.Text as T
52+data Description (desc :: Symbol) = Description
5553
5654instance (AesonOptions xs) => AesonOptions (Description f ': xs) where
5755 aesonOptions = aesonOptions @xs
@@ -62,8 +60,6 @@ instance KnownSymbol t => OpenApiOptionModifier (Description t) where
6260toTextLine :: forall s. KnownSymbol s => Text
6361toTextLine = "\n\n" <> T.pack (symbolVal (Proxy @s))
6462
65−#endif
66−
6763-- $setup
6864-- >>> import qualified Data.Yaml
6965-- >>> import qualified Data.ByteString.Char8