@@ -2,7 +2,6 @@
22{-# LANGUAGE FlexibleContexts #-}
33{-# LANGUAGE GeneralizedNewtypeDeriving #-}
44{-# LANGUAGE MultiParamTypeClasses #-}
5−{-# LANGUAGE StandaloneDeriving #-}
65module Obelisk.App where
76
87import Control.Monad.Catch (MonadCatch, MonadMask, MonadThrow)
@@ -19,11 +18,7 @@ data Obelisk = Obelisk
1918newtype ObeliskT m a = ObeliskT
2019 { unObeliskT :: ReaderT Obelisk (LoggingT Output m) a
2120 }
22− deriving (Functor, Applicative, Monad, MonadIO)
23−
24−deriving instance MonadThrow m => MonadThrow (ObeliskT m)
25−deriving instance MonadCatch m => MonadCatch (ObeliskT m)
26−deriving instance MonadMask m => MonadMask (ObeliskT m)
21+ deriving (Functor, Applicative, Monad, MonadIO, MonadThrow, MonadCatch, MonadMask)
2722
2823runObelisk :: MonadIO m => Obelisk -> ObeliskT m a -> m a
2924runObelisk c =