module Cachix.Types.ByteStringStreaming where import qualified Data.ByteString.Lazy as LBS import Data.Swagger (NamedSchema (..), ToSchema (..), binarySchema) import Protolude newtype ByteStringStreaming = ByteStringStreaming ByteString instance ToSchema ByteStringStreaming where declareNamedSchema :: Proxy ByteStringStreaming -> Declare (Definitions Schema) NamedSchema declareNamedSchema _ = NamedSchema -> Declare (Definitions Schema) NamedSchema forall (f :: * -> *) a. Applicative f => a -> f a pure (NamedSchema -> Declare (Definitions Schema) NamedSchema) -> NamedSchema -> Declare (Definitions Schema) NamedSchema forall a b. (a -> b) -> a -> b $ Maybe Text -> Schema -> NamedSchema NamedSchema (Text -> Maybe Text forall a. a -> Maybe a Just "ByteString") Schema binarySchema newtype LazyByteStringStreaming = LazyByteStringStreaming LBS.ByteString instance ToSchema LazyByteStringStreaming where declareNamedSchema :: Proxy LazyByteStringStreaming -> Declare (Definitions Schema) NamedSchema declareNamedSchema _ = NamedSchema -> Declare (Definitions Schema) NamedSchema forall (f :: * -> *) a. Applicative f => a -> f a pure (NamedSchema -> Declare (Definitions Schema) NamedSchema) -> NamedSchema -> Declare (Definitions Schema) NamedSchema forall a b. (a -> b) -> a -> b $ Maybe Text -> Schema -> NamedSchema NamedSchema (Text -> Maybe Text forall a. a -> Maybe a Just "lazyByteString") Schema binarySchema