Skip to content

Commit

Permalink
remove run test
Browse files Browse the repository at this point in the history
  • Loading branch information
epoberezkin committed Oct 31, 2023
1 parent 7cff9a2 commit 39d304e
Showing 1 changed file with 1 addition and 10 deletions.
11 changes: 1 addition & 10 deletions src/Simplex/Messaging/Agent/Env/SQLite.hs
Original file line number Diff line number Diff line change
Expand Up @@ -199,16 +199,7 @@ newSMPAgentEnv config@AgentConfig {initialClientId} store = do
pure Env {config, store, idsDrg, clientCounter, randomServer, ntfSupervisor, xftpAgent}

createAgentStore :: FilePath -> String -> MigrationConfirmation -> IO (Either MigrationError SQLiteStore)
createAgentStore dbFilePath dbKey cfg = do
withRNG $ \rng -> do
(pk, sk) <- sntrup761Keypair rng
(c, k) <- sntrup761Enc rng pk
k' <- sntrup761Dec c sk
if k /= k'
then fail "sntrup761 smoke test failed"
else putStrLn "sntrup761 smoke test passed"

createSQLiteStore dbFilePath dbKey Migrations.app cfg
createAgentStore dbFilePath dbKey = createSQLiteStore dbFilePath dbKey Migrations.app

data NtfSupervisor = NtfSupervisor
{ ntfTkn :: TVar (Maybe NtfToken),
Expand Down

0 comments on commit 39d304e

Please sign in to comment.