diff --git a/servant-server/src/Servant/Server/Internal/ServantErr.hs b/servant-server/src/Servant/Server/Internal/ServantErr.hs index 0b58b6be..1b05638c 100644 --- a/servant-server/src/Servant/Server/Internal/ServantErr.hs +++ b/servant-server/src/Servant/Server/Internal/ServantErr.hs @@ -16,7 +16,6 @@ data ServantErr = ServantErr { errHTTPCode :: Int , errHeaders :: [HTTP.Header] } deriving (Show, Eq, Read, Typeable) --- Make ServantErr throwable: instance Exception ServantErr responseServantErr :: ServantErr -> Response