diff options
Diffstat (limited to 'src/Data/Torrent/Layout.hs')
-rw-r--r-- | src/Data/Torrent/Layout.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Data/Torrent/Layout.hs b/src/Data/Torrent/Layout.hs index a32d74fa..453c0d4f 100644 --- a/src/Data/Torrent/Layout.hs +++ b/src/Data/Torrent/Layout.hs | |||
@@ -70,7 +70,6 @@ import Data.BEncode.Types | |||
70 | import Data.ByteString as BS | 70 | import Data.ByteString as BS |
71 | import Data.ByteString.Base16 as Base16 | 71 | import Data.ByteString.Base16 as Base16 |
72 | import Data.ByteString.Char8 as BC | 72 | import Data.ByteString.Char8 as BC |
73 | import Data.Char as Char | ||
74 | import Data.Foldable as F | 73 | import Data.Foldable as F |
75 | import Data.List as L | 74 | import Data.List as L |
76 | import Data.Text as T | 75 | import Data.Text as T |
@@ -81,6 +80,7 @@ import Text.PrettyPrint.Class | |||
81 | import System.FilePath | 80 | import System.FilePath |
82 | import System.Posix.Types | 81 | import System.Posix.Types |
83 | 82 | ||
83 | import Data.Torrent.JSON | ||
84 | 84 | ||
85 | {----------------------------------------------------------------------- | 85 | {----------------------------------------------------------------------- |
86 | -- File attribytes | 86 | -- File attribytes |
@@ -123,7 +123,7 @@ data FileInfo a = FileInfo { | |||
123 | , Functor, Foldable | 123 | , Functor, Foldable |
124 | ) | 124 | ) |
125 | 125 | ||
126 | $(deriveJSON defaultOptions { fieldLabelModifier = (L.map Char.toLower . L.dropWhile isLower) } ''FileInfo) | 126 | $(deriveJSON omitRecordPrefix ''FileInfo) |
127 | 127 | ||
128 | makeLensesFor | 128 | makeLensesFor |
129 | [ ("fiLength", "fileLength") | 129 | [ ("fiLength", "fileLength") |
@@ -208,7 +208,7 @@ data LayoutInfo | |||
208 | , liDirName :: !ByteString | 208 | , liDirName :: !ByteString |
209 | } deriving (Show, Read, Eq, Typeable) | 209 | } deriving (Show, Read, Eq, Typeable) |
210 | 210 | ||
211 | $(deriveJSON defaultOptions { fieldLabelModifier = (L.map Char.toLower . L.dropWhile isLower) } ''LayoutInfo) | 211 | $(deriveJSON omitRecordPrefix ''LayoutInfo) |
212 | 212 | ||
213 | makeLensesFor | 213 | makeLensesFor |
214 | [ ("liFile" , "singleFile" ) | 214 | [ ("liFile" , "singleFile" ) |