Explicit export list in ErrorFormatter.hs

This commit is contained in:
Maxim Koltsov 2020-07-30 19:05:46 +03:00
parent 43cf589e0e
commit d740c18992
No known key found for this signature in database
GPG key ID: 52B5EDB68BF54442

View file

@ -1,11 +1,19 @@
{-# LANGUAGE DataKinds #-} {-# LANGUAGE DataKinds #-}
{-# LANGUAGE KindSignatures #-}
{-# LANGUAGE PolyKinds #-} {-# LANGUAGE PolyKinds #-}
{-# LANGUAGE RankNTypes #-} {-# LANGUAGE RankNTypes #-}
{-# LANGUAGE TypeOperators #-} {-# LANGUAGE TypeOperators #-}
module Servant.Server.Internal.ErrorFormatter module Servant.Server.Internal.ErrorFormatter
where ( ErrorFormatters(..)
, ErrorFormatter
, NotFoundErrorFormatter
, DefaultErrorFormatters
, defaultErrorFormatters
, MkContextWithErrorFormatter
, mkContextWithErrorFormatter
) where
import Data.String.Conversions import Data.String.Conversions
(cs) (cs)
@ -72,8 +80,8 @@ err400Formatter _ _ e = err400 { errBody = cs e }
-- These definitions suppress "unused import" warning. -- These definitions suppress "unused import" warning.
-- The imorts are needed for Haddock to correctly link to them. -- The imorts are needed for Haddock to correctly link to them.
_RB :: Proxy ReqBody _RB :: Proxy ReqBody
_RB = undefined _RB = Proxy
_C :: Proxy Capture _C :: Proxy Capture
_C = undefined _C = Proxy
_CT :: Proxy Context _CT :: Proxy Context
_CT = undefined _CT = Proxy