servant/servant-swagger/src/Servant/Swagger/Internal/Orphans.hs

28 lines
823 B
Haskell
Raw Normal View History

{-# 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