diff --git a/users/Profpatsch/whatcd-resolver/src/AppT.hs b/users/Profpatsch/whatcd-resolver/src/AppT.hs
index 323200412..0c93cbadd 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