diff options
| -rw-r--r-- | users/Profpatsch/whatcd-resolver/src/AppT.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/users/Profpatsch/whatcd-resolver/src/AppT.hs b/users/Profpatsch/whatcd-resolver/src/AppT.hs index 32320041227b..0c93cbaddb3a 100644 --- a/users/Profpatsch/whatcd-resolver/src/AppT.hs +++ b/users/Profpatsch/whatcd-resolver/src/AppT.hs @@ -33,10 +33,12 @@ data Context = Context newtype AppT m a = AppT {unAppT :: ReaderT Context m a} deriving newtype (Functor, Applicative, Monad, MonadIO, MonadUnliftIO, MonadThrow) -data AppException = AppException Text - deriving stock (Show) +newtype AppException = AppException Text deriving anyclass (Exception) +instance Show AppException where + showsPrec _ (AppException t) = ("AppException: "++) . (textToString t++) + -- * Logging & Opentelemetry instance (MonadIO m) => MonadLogger (AppT m) where |