From 58ed6b87a3333279f05e4edb82be7881eb52270f Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 22 Nov 2018 21:40:03 +0100 Subject: [PATCH] Address hlint --- src/Utils/Message.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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