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 1e0a929d..089217fa 100644 --- a/src/Data/Torrent/Block.hs +++ b/src/Data/Torrent/Block.hs | |||
| @@ -100,7 +100,7 @@ data BlockIx = BlockIx { | |||
| 100 | , ixLength :: {-# UNPACK #-} !BlockSize | 100 | , ixLength :: {-# UNPACK #-} !BlockSize |
| 101 | } deriving (Show, Eq, Typeable) | 101 | } deriving (Show, Eq, Typeable) |
| 102 | 102 | ||
| 103 | $(deriveJSON (L.map toLower . L.dropWhile isLower) ''BlockIx) | 103 | $(deriveJSON defaultOptions { fieldLabelModifier = (L.map toLower . L.dropWhile isLower) } ''BlockIx) |
| 104 | 104 | ||
| 105 | getInt :: S.Get Int | 105 | getInt :: S.Get Int |
| 106 | getInt = fromIntegral <$> S.getWord32be | 106 | getInt = fromIntegral <$> S.getWord32be |