From 5b908c86320ee73f2722c85f8a47fa03ec093c6c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Tue, 10 Oct 2023 21:36:58 +0200 Subject: Use extended identity data for name --- src/Message.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Message.hs') diff --git a/src/Message.hs b/src/Message.hs index ac67f07..334cd1e 100644 --- a/src/Message.hs +++ b/src/Message.hs @@ -43,7 +43,7 @@ data DirectMessage = DirectMessage instance Storable DirectMessage where store' msg = storeRec $ do - mapM_ (storeRef "from") $ idDataF $ msgFrom msg + mapM_ (storeRef "from") $ idExtDataF $ msgFrom msg mapM_ (storeRef "PREV") $ msgPrev msg storeDate "time" $ msgTime msg storeText "text" $ msgText msg -- cgit v1.2.3