diff options
Diffstat (limited to 'Notmuch/Message.hs')
| -rw-r--r-- | Notmuch/Message.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Notmuch/Message.hs b/Notmuch/Message.hs index d458c5f..29ca5ec 100644 --- a/Notmuch/Message.hs +++ b/Notmuch/Message.hs @@ -90,7 +90,7 @@ instance Eq Message where instance FromJSON Message where - parseJSON (Object v) = Message <$> v .: "id" + parseJSON (Object v) = Message <$> (MessageID . ("id:"<>) <$> v .: "id") <*> (posixSecondsToUTCTime . fromInteger <$> v .: "timestamp") <*> (M.mapKeys CI.mk <$> v .: "headers") <*> v .: "body" |