From 84d7c83bc85ff0862a39d6de3bd227550175ebce Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 2 Feb 2020 21:03:02 +0100
Subject: Direct messages in shared state

---
 src/State.hs | 8 --------
 1 file changed, 8 deletions(-)

(limited to 'src/State.hs')

diff --git a/src/State.hs b/src/State.hs
index bb7c570..15ae7d2 100644
--- a/src/State.hs
+++ b/src/State.hs
@@ -29,16 +29,13 @@ import qualified Data.UUID as U
 import System.IO
 
 import Identity
-import Message
 import PubKey
 import Storage
-import Storage.List
 import Storage.Merge
 
 data LocalState = LocalState
     { lsIdentity :: Stored (Signed IdentityData)
     , lsShared :: [Stored SharedState]
-    , lsMessages :: StoredList DirectMessageThread -- TODO: move to shared
     }
 
 data SharedState = SharedState
@@ -60,12 +57,10 @@ instance Storable LocalState where
     store' st = storeRec $ do
         storeRef "id" $ lsIdentity st
         mapM_ (storeRef "shared") $ lsShared st
-        storeRef "dmsg" $ lsMessages st
 
     load' = loadRec $ LocalState
         <$> loadRef "id"
         <*> loadRefs "shared"
-        <*> loadRef "dmsg"
 
 instance Storable SharedState where
     store' st = storeRec $ do
@@ -114,8 +109,6 @@ loadLocalStateHead st = loadHeadDef st "erebos" $ do
         , iddKeyMessage = Just devPublicMsg
         }
 
-    msgs <- emptySList st
-
     shared <- wrappedStore st $ SharedState
         { ssPrev = []
         , ssType = Just $ sharedTypeID @(Signed IdentityData) Proxy
@@ -124,7 +117,6 @@ loadLocalStateHead st = loadHeadDef st "erebos" $ do
     return $ LocalState
         { lsIdentity = identity
         , lsShared = [shared]
-        , lsMessages = msgs
         }
 
 loadLocalIdentity :: Storage -> IO UnifiedIdentity
-- 
cgit v1.2.3