diff options
Diffstat (limited to 'src/Data/Torrent/Block.hs')
| -rw-r--r-- | src/Data/Torrent/Block.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Data/Torrent/Block.hs b/src/Data/Torrent/Block.hs index 37889a7a..fd12b7a0 100644 --- a/src/Data/Torrent/Block.hs +++ b/src/Data/Torrent/Block.hs | |||
| @@ -97,7 +97,7 @@ data BlockIx = BlockIx { | |||
| 97 | , ixLength :: {-# UNPACK #-} !BlockSize | 97 | , ixLength :: {-# UNPACK #-} !BlockSize |
| 98 | } deriving (Show, Eq) | 98 | } deriving (Show, Eq) |
| 99 | 99 | ||
| 100 | $(deriveJSON (L.map toLower . L.dropWhile isLower) ''BlockIx) | 100 | $(deriveJSON defaultOptions { fieldLabelModifier = (L.map toLower . L.dropWhile isLower) } ''BlockIx) |
| 101 | 101 | ||
| 102 | getInt :: S.Get Int | 102 | getInt :: S.Get Int |
| 103 | getInt = fromIntegral <$> S.getWord32be | 103 | getInt = fromIntegral <$> S.getWord32be |