updateAccounts :: [JsonAccount] -> IO ()
updateAccounts jsonAccounts = do
    conn <- getDbConnection

    run conn "DELETE FROM account" []
    commit conn

    mapM_ (insertAccount conn) jsonAccounts

    commit conn
    disconnect conn
updateAccounts :: [JsonAccount] -> IO ()
updateAccounts jsonAccounts = do
    conn <- getDbConnection

    run conn "DELETE FROM account" []
    commit conn

    mapM_ (insertAccount conn) jsonAccounts

    commit conn
    disconnect conn
updateAccounts jsonAccounts = do
    conn <- getDbConnection

    run conn "DELETE FROM account" []
    commit conn

    mapM_ (insertAccount conn) jsonAccounts

    commit conn
    disconnect conn