diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-01 13:49:01 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-01 13:49:01 +0400 |
| commit | 6bb1fadc5545fb37e1d83509970275fcbc37954c (patch) | |
| tree | a7efe23dcb7dd98747be5e4a5ae350feec7bed18 /src/Data/Torrent.hs | |
| parent | 86a5db129be291f27811115b2279988a3c02aad9 (diff) | |
Add FromJSON instance for Torrent datatype
Diffstat (limited to 'src/Data/Torrent.hs')
| -rw-r--r-- | src/Data/Torrent.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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" ) |