From b83c5d53be21c03004ebb65d1dc9fe1f841a2a3c Mon Sep 17 00:00:00 2001 From: Daniel Gröber Date: Sun, 1 Dec 2013 21:12:40 +0100 Subject: Fix building with aeson >= 0.6.2.0 deriveJSON now takes an Option record instead of a single function. It might be nicer to define a function that takes the fieldLabelModifier function rather than doing it inline everywhere but I didn't know where a good place to put that would be. --- src/Data/Torrent/Progress.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Data/Torrent/Progress.hs') diff --git a/src/Data/Torrent/Progress.hs b/src/Data/Torrent/Progress.hs index 1a4a68e2..34f8f299 100644 --- a/src/Data/Torrent/Progress.hs +++ b/src/Data/Torrent/Progress.hs @@ -62,7 +62,7 @@ data Progress = Progress } deriving (Show, Read, Eq) $(makeLenses ''Progress) -$(deriveJSON L.tail ''Progress) +$(deriveJSON defaultOptions { fieldLabelModifier = L.tail } ''Progress) -- | UDP tracker compatible encoding. instance Serialize Progress where -- cgit v1.2.3