@@ -94,6 +94,9 @@ main = do
94 sync <- getOrReset storage SyncKey
94 sync <- getOrReset storage SyncKey
95 ciphers <- traverse processCipher sync.ciphers
95 ciphers <- traverse processCipher sync.ciphers
96 liftEffect $ Elm.send app $ Bridge.LoadCiphers $ Bridge.Sub_LoadCiphers_List ciphers
96 liftEffect $ Elm.send app $ Bridge.LoadCiphers $ Bridge.Sub_LoadCiphers_List ciphers
98+ sync <- liftPromise $ api.getSync unit
99+ liftEffect $ Storage.store storage SyncKey sync
97 pure unit
100 pure unit
98 Bridge.NeedsReset -> do
101 Bridge.NeedsReset -> do
99 WebStorage.clear storage
102 WebStorage.clear storage
@@ -116,7 +119,7 @@ main = do
116 pure unit
119 pure unit
117 Bridge.Init -> do
120 Bridge.Init -> do
118 liftEffect $ Storage.get storage TokenKey >>= \x -> case x of
121 liftEffect $ Storage.get storage TokenKey >>= \x -> case x of
119− Just _ -> liftEffect $ Elm.send app Bridge.LoginSuccessful
122+ Just _ -> do liftEffect $ Elm.send app Bridge.LoginSuccessful
120 Nothing -> Elm.send app Bridge.NeedsLogin
123 Nothing -> Elm.send app Bridge.NeedsLogin
121 Bridge.RequestCipher id -> run do
124 Bridge.RequestCipher id -> run do
122 sync <- getOrReset storage SyncKey
125 sync <- getOrReset storage SyncKey