aelve/guide
1
1
Fork 0
mirror of https://github.com/aelve/guide.git synced 2024-11-23 21:13:07 +03:00
Code Issues Projects Releases Wiki Activity

Fix the ToJSON Uid instance

Browse Source
This commit is contained in:
Artyom Kazak 2018-09-01 19:37:40 +02:00
parent 188fd65fff
commit e44ca9a165
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/Guide/Utils.hs
View File

@ -315,7 +315,7 @@ newtype Uid a = Uid {uidToText :: Text}
T.Buildable, Hashable)
instance A.ToJSON (Uid a) where
toJSON = A.genericToJSON A.defaultOptions
toJSON = toJSON . uidToText
-- This instance is written manually because otherwise it produces a warning:
-- • Redundant constraint: SafeCopy a