fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Address hlint

Browse Source
This commit is contained in:
Gregor Kleen 2018-11-22 21:40:03 +01:00
parent 3d62a1e4b9
commit 58ed6b87a3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Utils/Message.hs
View File

@ -38,7 +38,7 @@ deriveJSON defaultOptions
nullaryPathPiece ''MessageClass camelToPathPiece nullaryPathPiece ''MessageClass camelToPathPiece
derivePersistField "MessageClass" derivePersistField "MessageClass"
data UnknownMessageClass = UnknownMessageClass !Text newtype UnknownMessageClass = UnknownMessageClass Text
deriving (Eq, Ord, Read, Show, Generic, Typeable) deriving (Eq, Ord, Read, Show, Generic, Typeable)
instance Exception UnknownMessageClass instance Exception UnknownMessageClass