summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--TODO.org1
-rw-r--r--src/Data/Torrent.hs2
2 files changed, 2 insertions, 1 deletions
diff --git a/TODO.org b/TODO.org
index 24b33d0c..a7ce16fb 100644
--- a/TODO.org
+++ b/TODO.org
@@ -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
203instance FromJSON NominalDiffTime where 203instance 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
208makeLensesFor 208makeLensesFor
209 [ ("tAnnounce" , "announce" ) 209 [ ("tAnnounce" , "announce" )