Add changelog entry

Author: tchoutri

changelog.d/issue-1829

@@ -0,0 +1,4 @@
+synopsis: Add MonadCatch and MonadMask instances to RouteResultT and DelayedIO
+packages: servant-server
+prs: #1830
+issues: #1829

servant-server/src/Servant/Server/Internal/DelayedIO.hs

@@ -5,7 +5,7 @@
 module Servant.Server.Internal.DelayedIO where
 
 import Control.Monad.Base (MonadBase (..))
-import Control.Monad.Catch (MonadThrow (..), MonadCatch(..), MonadMask)
+import Control.Monad.Catch (MonadCatch (..), MonadMask, MonadThrow (..))
 import Control.Monad.Reader (MonadReader (..), ReaderT (..), runReaderT)
 import Control.Monad.Trans (MonadIO (..), MonadTrans (..))
 import Control.Monad.Trans.Control (MonadBaseControl (..))
@@ -30,12 +30,12 @@ newtype DelayedIO a = DelayedIO {runDelayedIO' :: ReaderT Request (ResourceT (Ro
     ( Applicative
     , Functor
     , Monad
+    , MonadCatch
     , MonadIO
+    , MonadMask
     , MonadReader Request
     , MonadResource
     , MonadThrow
-    , MonadCatch
-    , MonadMask
     )
 
 instance MonadBase IO DelayedIO where
@@ -55,7 +55,6 @@ instance MonadBaseControl IO DelayedIO where
       runInBase (runInternalState (runReaderT (runDelayedIO' x) req) s)
   restoreM = DelayedIO . lift . withInternalState . const . restoreM
 
-
 runDelayedIO :: DelayedIO a -> Request -> ResourceT IO (RouteResult a)
 runDelayedIO m req = transResourceT runRouteResultT $ runReaderT (runDelayedIO' m) req