core: drop Sentry

Bogdanp · Oct 22, 2023 · 34ebdbf · 34ebdbf
1 parent b1cb583
commit 34ebdbf
Show file tree

Hide file tree

Showing 7 changed files with 3 additions and 22 deletions.
diff --git a/.github/workflows/build_linux.yml b/.github/workflows/build_linux.yml
@@ -23,10 +23,8 @@ jobs:
       - name: Prepare secrets
         run: |
           echo -n "$LICENSE_SECRET" | base64 -d > core/secrets/license-secret.txt
-          echo -n "$SENTRY_DSN" | base64 -d > core/secrets/sentry-dsn.txt
         env:
           LICENSE_SECRET: ${{ secrets.LICENSE_SECRET }}
-          SENTRY_DSN: ${{ secrets.SENTRY_DSN }}
       - name: Install core
         run: raco pkg install -D --batch --auto --name franz core/
       - name: Install FranzCross

diff --git a/.github/workflows/build_macos.yml b/.github/workflows/build_macos.yml
@@ -21,10 +21,8 @@ jobs:
       - name: Prepare secrets
         run: |
           echo -n "$LICENSE_SECRET" | base64 --decode -o core/secrets/license-secret.txt
-          echo -n "$SENTRY_DSN" | base64 --decode -o core/secrets/sentry-dsn.txt
         env:
           LICENSE_SECRET: ${{ secrets.LICENSE_SECRET }}
-          SENTRY_DSN: ${{ secrets.SENTRY_DSN }}
       - name: Build core arm64
         run: |
           raco cross \
@@ -77,10 +75,8 @@ jobs:
       - name: Prepare secrets
         run: |
           echo -n "$LICENSE_SECRET" | base64 --decode -o core/secrets/license-secret.txt
-          echo -n "$SENTRY_DSN" | base64 --decode -o core/secrets/sentry-dsn.txt
         env:
           LICENSE_SECRET: ${{ secrets.LICENSE_SECRET }}
-          SENTRY_DSN: ${{ secrets.SENTRY_DSN }}
       - name: Install core
         run: raco pkg install -D --batch --auto --name franz core/
       - name: Build manual

diff --git a/.github/workflows/build_win32.yml b/.github/workflows/build_win32.yml
@@ -25,12 +25,10 @@ jobs:
         run: |
           echo -n "$DEVELOPER_ID_CER_P12" | base64 -d > developer_id.p12
           echo -n "$LICENSE_SECRET" | base64 -d > core/secrets/license-secret.txt
-          echo -n "$SENTRY_DSN" | base64 -d > core/secrets/sentry-dsn.txt
         shell: bash
         env:
           DEVELOPER_ID_CER_P12: ${{ secrets.DEVELOPER_ID_CER_P12 }}
           LICENSE_SECRET: ${{ secrets.LICENSE_SECRET }}
-          SENTRY_DSN: ${{ secrets.SENTRY_DSN }}
       - name: Install core
         run: |
           raco pkg install -D --batch --auto --force libsqlite3

diff --git a/core/info.rkt b/core/info.rkt
@@ -19,7 +19,6 @@
                ["noise-serde-lib" #:version "0.4"]
                "protocol-buffers-lib"
                ["sasl-lib" #:version "1.3"]
-               ["sentry-lib" #:version "0.2.2"]
                "snappy-lib"
                "threading-lib"))
 (define build-deps '("rackunit-lib"))

diff --git a/core/main.rkt b/core/main.rkt
@@ -5,7 +5,6 @@
          noise/backend
          noise/serde
          racket/file
-         sentry
 
          "appdata.rkt"
          "logger.rkt"
@@ -45,16 +44,11 @@
       [else
        (build-application-path "metadata.sqlite3")]))
   (log-franz-debug "database path: ~a" database-path)
-  (parameterize ([current-connection (make-database database-path)]
-                 [current-sentry (make-sentry sentry-dsn #:release franz-version)])
+  (parameterize ([current-connection (make-database database-path)])
     (migrate!)
     (maybe-adjust-trial-deadline)
-    (parameterize ([current-sentry-user (make-sentry-user #:id (get-buid))]
-                   [http:current-user-agent (make-user-agent)])
-      (dynamic-wind
-        (λ () (void))
-        (λ () (proc))
-        (λ () (sentry-stop))))))
+    (parameterize ([http:current-user-agent (make-user-agent)])
+      (proc))))
 
 (define (main in-fd out-fd)
   (call-with-main-parameterization

diff --git a/core/pool.rkt b/core/pool.rkt
@@ -6,7 +6,6 @@
          racket/list
          racket/match
          racket/promise
-         sentry
          threading
          "broker.rkt"
          "connection-details.rkt"
@@ -55,7 +54,6 @@
          (define res-state
            (with-handlers ([exn:fail?
                             (lambda (e)
-                              (sentry-capture-exception! e)
                               (begin0 s
                                 ((error-display-handler)
                                  (format "pool: ~a" (exn-message e))
@@ -492,7 +490,6 @@
    (lambda (res-or-err)
      (begin0 res-or-err
        (when (exn:fail? res-or-err)
-         (sentry-capture-exception! res-or-err)
          (raise res-or-err))))))
 
 

diff --git a/core/secret.rkt b/core/secret.rkt
@@ -31,5 +31,4 @@
            (provide id)) ...)]))
 
 (define-secrets
-  [sentry-dsn "secrets/sentry-dsn.txt"]
   [license-secret "secrets/license-secret.txt"])