@@ -102,7 +102,10 @@ main = do
102 ciphers <- traverse processCipher sync.ciphers
102 ciphers <- traverse processCipher sync.ciphers
103 liftEffect $ Elm.send app $ Bridge.LoadCiphers $ Bridge.Sub_LoadCiphers_List ciphers
103 liftEffect $ Elm.send app $ Bridge.LoadCiphers $ Bridge.Sub_LoadCiphers_List ciphers
104 pure unit
104 pure unit
105− Bridge.NeedsReset -> pure unit
105+ Bridge.NeedsReset -> do
106+ WebStorage.clear storage
107+ Elm.send app Bridge.Reset
106 Bridge.SendMasterPassword masterPassword -> runElmAff app $ do
109 Bridge.SendMasterPassword masterPassword -> runElmAff app $ do
107 flip runReaderT {app: app, storage: storage, crypto: services.crypto, cryptoFunctions: services.cryptoFunctions} $ do
110 flip runReaderT {app: app, storage: storage, crypto: services.crypto, cryptoFunctions: services.cryptoFunctions} $ do
108 hash <- getOrReset storage MasterPasswordHashKey
111 hash <- getOrReset storage MasterPasswordHashKey