@@ -16,7 +16,6 @@ data ServantErr = ServantErr { errHTTPCode :: Int
16 , errHeaders :: [HTTP.Header]
16 , errHeaders :: [HTTP.Header]
17 } deriving (Show, Eq, Read, Typeable)
17 } deriving (Show, Eq, Read, Typeable)
19−-- Make ServantErr throwable:
20instance Exception ServantErr
19instance Exception ServantErr
22responseServantErr :: ServantErr -> Response
21responseServantErr :: ServantErr -> Response