@@ -94,6 +94,9 @@ main = do
9494 sync <- getOrReset storage SyncKey
9595 ciphers <- traverse processCipher sync.ciphers
9696 liftEffect $ Elm.send app $ Bridge.LoadCiphers $ Bridge.Sub_LoadCiphers_List ciphers
97+ api <- getAuthedApi
98+ sync <- liftPromise $ api.getSync unit
99+ liftEffect $ Storage.store storage SyncKey sync
97100 pure unit
98101 Bridge.NeedsReset -> do
99102 WebStorage.clear storage
@@ -116,7 +119,7 @@ main = do
116119 pure unit
117120 Bridge.Init -> do
118121 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
120123 Nothing -> Elm.send app Bridge.NeedsLogin
121124 Bridge.RequestCipher id -> run do
122125 sync <- getOrReset storage SyncKey