diff options
| -rw-r--r-- | src/Erebos/Message.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Erebos/Message.hs b/src/Erebos/Message.hs index f8ad2cf..5ef27f3 100644 --- a/src/Erebos/Message.hs +++ b/src/Erebos/Message.hs @@ -127,7 +127,7 @@ toThreadList (DirectMessageThreads _ threads) = threads instance Storable MessageState where store' MessageState {..} = storeRec $ do mapM_ (storeRef "PREV") msPrev - mapM_ (storeRef "peer") $ idDataF msPeer + mapM_ (storeRef "peer") $ idExtDataF msPeer mapM_ (storeRef "ready") msReady mapM_ (storeRef "sent") msSent mapM_ (storeRef "received") msReceived |