diff --git a/src/Utils/Message.hs b/src/Utils/Message.hs index 2d819bc32..7cf7f653f 100644 --- a/src/Utils/Message.hs +++ b/src/Utils/Message.hs @@ -38,7 +38,7 @@ deriveJSON defaultOptions nullaryPathPiece ''MessageClass camelToPathPiece derivePersistField "MessageClass" -data UnknownMessageClass = UnknownMessageClass !Text +newtype UnknownMessageClass = UnknownMessageClass Text deriving (Eq, Ord, Read, Show, Generic, Typeable) instance Exception UnknownMessageClass