summaryrefslogtreecommitdiff
path: root/src/Data/Torrent/Layout.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Data/Torrent/Layout.hs')
-rw-r--r--src/Data/Torrent/Layout.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Data/Torrent/Layout.hs b/src/Data/Torrent/Layout.hs
index 54ec0f23..c1e26d48 100644
--- a/src/Data/Torrent/Layout.hs
+++ b/src/Data/Torrent/Layout.hs
@@ -125,7 +125,7 @@ data FileInfo a = FileInfo {
125 , Functor, Foldable 125 , Functor, Foldable
126 ) 126 )
127 127
128$(deriveJSON (L.map Char.toLower . L.dropWhile isLower) ''FileInfo) 128$(deriveJSON defaultOptions { fieldLabelModifier = (L.map Char.toLower . L.dropWhile isLower) } ''FileInfo)
129 129
130makeLensesFor 130makeLensesFor
131 [ ("fiLength", "fileLength") 131 [ ("fiLength", "fileLength")
@@ -210,7 +210,7 @@ data LayoutInfo
210 , liDirName :: !ByteString 210 , liDirName :: !ByteString
211 } deriving (Show, Read, Eq, Typeable) 211 } deriving (Show, Read, Eq, Typeable)
212 212
213$(deriveJSON (L.map Char.toLower . L.dropWhile isLower) ''LayoutInfo) 213$(deriveJSON defaultOptions { fieldLabelModifier = (L.map Char.toLower . L.dropWhile isLower) } ''LayoutInfo)
214 214
215makeLensesFor 215makeLensesFor
216 [ ("liFile" , "singleFile" ) 216 [ ("liFile" , "singleFile" )