diff options
-rw-r--r-- | TODO.org | 1 | ||||
-rw-r--r-- | src/Data/Torrent.hs | 2 |
2 files changed, 2 insertions, 1 deletions
@@ -1,3 +1,4 @@ | |||
1 | * TODO version 0.0.0.0 | ||
1 | * TODO torrent linting for indexing | 2 | * TODO torrent linting for indexing |
2 | * TODO move PeerClient to Data.Torrent.Client | 3 | * TODO move PeerClient to Data.Torrent.Client |
3 | * TODO Word64 for Progress fields | 4 | * TODO Word64 for Progress fields |
diff --git a/src/Data/Torrent.hs b/src/Data/Torrent.hs index 8d62b068..2733956c 100644 --- a/src/Data/Torrent.hs +++ b/src/Data/Torrent.hs | |||
@@ -203,7 +203,7 @@ instance ToJSON NominalDiffTime where | |||
203 | instance FromJSON NominalDiffTime where | 203 | instance FromJSON NominalDiffTime where |
204 | parseJSON v = utcTimeToPOSIXSeconds <$> parseJSON v | 204 | parseJSON v = utcTimeToPOSIXSeconds <$> parseJSON v |
205 | 205 | ||
206 | $(deriveToJSON (L.map Char.toLower . L.dropWhile isLower) ''Torrent) | 206 | $(deriveJSON (L.map Char.toLower . L.dropWhile isLower) ''Torrent) |
207 | 207 | ||
208 | makeLensesFor | 208 | makeLensesFor |
209 | [ ("tAnnounce" , "announce" ) | 209 | [ ("tAnnounce" , "announce" ) |