From d740c189926ab2a85f3a813371fa22aa5479451e Mon Sep 17 00:00:00 2001
From: Maxim Koltsov <kolmax94@gmail.com>
Date: Thu, 30 Jul 2020 19:05:46 +0300
Subject: [PATCH] Explicit export list in ErrorFormatter.hs

---
 .../Servant/Server/Internal/ErrorFormatter.hs | 24 ++++++++++++-------
 1 file changed, 16 insertions(+), 8 deletions(-)

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