@@ -1,11 +1,19 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE KindSignatures #-}
3−{-# LANGUAGE PolyKinds #-}
4−{-# LANGUAGE RankNTypes #-}
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE PolyKinds #-}
3+{-# LANGUAGE RankNTypes #-}
54{-# LANGUAGE TypeOperators #-}
65
76module Servant.Server.Internal.ErrorFormatter
8− where
7+ ( ErrorFormatters(..)
8+ , ErrorFormatter
9+ , NotFoundErrorFormatter
10+
11+ , DefaultErrorFormatters
12+ , defaultErrorFormatters
13+
14+ , MkContextWithErrorFormatter
15+ , mkContextWithErrorFormatter
16+ ) where
917
1018import Data.String.Conversions
1119 (cs)
@@ -72,8 +80,8 @@ err400Formatter _ _ e = err400 { errBody = cs e }
7280-- These definitions suppress "unused import" warning.
7381-- The imorts are needed for Haddock to correctly link to them.
7482_RB :: Proxy ReqBody
75−_RB = undefined
83+_RB = Proxy
7684_C :: Proxy Capture
77−_C = undefined
85+_C = Proxy
7886_CT :: Proxy Context
79−_CT = undefined
87+_CT = Proxy