28 lines
823 B
Haskell
28 lines
823 B
Haskell
|
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
||
|
|
{-# LANGUAGE CPP #-}
|
||
|
|
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
|
||
|
|
{-# LANGUAGE ScopedTypeVariables #-}
|
||
|
|
{-# LANGUAGE StandaloneDeriving #-}
|
||
|
|
module Servant.Swagger.Internal.Orphans where
|
||
|
|
|
||
|
|
import Data.Proxy
|
||
|
|
(Proxy (..))
|
||
|
|
import Data.Swagger
|
||
|
|
import Servant.Types.SourceT
|
||
|
|
(SourceT)
|
||
|
|
#if MIN_VERSION_GLASGOW_HASKELL(8,8,1,0)
|
||
|
|
import Servant.API (WithStatus(..))
|
||
|
|
#endif
|
||
|
|
|
||
|
|
-- | Pretend that 'SourceT m a' is '[a]'.
|
||
|
|
--
|
||
|
|
-- @since 1.1.7
|
||
|
|
--
|
||
|
|
instance ToSchema a => ToSchema (SourceT m a) where
|
||
|
|
declareNamedSchema _ = declareNamedSchema (Proxy :: Proxy [a])
|
||
|
|
|
||
|
|
#if MIN_VERSION_GLASGOW_HASKELL(8,8,1,0)
|
||
|
|
-- @since 1.1.11
|
||
|
|
deriving instance ToSchema a => ToSchema (WithStatus s a)
|
||
|
|
#endif
|