diff options
| author | tv <tv@shackspace.de> | 2015-01-31 14:49:25 +0100 |
|---|---|---|
| committer | tv <tv@shackspace.de> | 2015-01-31 15:13:00 +0100 |
| commit | 39e76d0c83515a98f84f06b1c3b430d1e67cd1cd (patch) | |
| tree | 928ddf6f729fe18c9e78858c340056c86dd855eb /Notmuch/SearchResult.hs | |
| parent | c2c06d1d436df298cc60e3af37684de056eb2fc9 (diff) | |
Notmuch: "id:" and "thread:" are part of ID
Diffstat (limited to 'Notmuch/SearchResult.hs')
| -rw-r--r-- | Notmuch/SearchResult.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Notmuch/SearchResult.hs b/Notmuch/SearchResult.hs index 6d3f9be..3a75e96 100644 --- a/Notmuch/SearchResult.hs +++ b/Notmuch/SearchResult.hs @@ -34,7 +34,7 @@ instance Eq SearchResult where instance FromJSON SearchResult where - parseJSON (Object v) = SearchResult <$> v .: "thread" + parseJSON (Object v) = SearchResult <$> ((ThreadID . ("thread:"++)) <$> v .: "thread") <*> (posixSecondsToUTCTime . fromInteger <$> v .: "timestamp") <*> v .: "date_relative" <*> v .:? "subject" .!= "" |