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/Network/BitTorrent/Core/PeerAddr.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Network/BitTorrent/Core/PeerAddr.hs') diff --git a/src/Network/BitTorrent/Core/PeerAddr.hs b/src/Network/BitTorrent/Core/PeerAddr.hs index e58aaa89..ed2dc672 100644 --- a/src/Network/BitTorrent/Core/PeerAddr.hs +++ b/src/Network/BitTorrent/Core/PeerAddr.hs @@ -62,7 +62,7 @@ data PeerAddr = PeerAddr { , peerPort :: {-# UNPACK #-} !PortNumber } deriving (Show, Eq, Ord, Typeable) -$(deriveJSON (L.map toLower . L.dropWhile isLower) ''PeerAddr) +$(deriveJSON defaultOptions { fieldLabelModifier = (L.map toLower . L.dropWhile isLower) } ''PeerAddr) -- | The tracker "announce query" compatible encoding. instance BEncode PeerAddr where -- cgit v1.2.3