From e44ca9a165d4a0e0825a8959a5f50e56e5da0680 Mon Sep 17 00:00:00 2001 From: Artyom Kazak Date: Sat, 1 Sep 2018 19:37:40 +0200 Subject: [PATCH] Fix the ToJSON Uid instance --- src/Guide/Utils.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Guide/Utils.hs b/src/Guide/Utils.hs index 23a9538..bdf04e0 100644 --- a/src/Guide/Utils.hs +++ b/src/Guide/Utils.hs @@ -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