aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--.gitignore1
-rwxr-xr-xscripts/guix-data-service-process-branch-updated-email34
2 files changed, 1 insertions, 34 deletions
diff --git a/.gitignore b/.gitignore
index 598ce8e..52dcad3 100644
--- a/.gitignore
+++ b/.gitignore
@@ -12,4 +12,5 @@ guix-data-service/config.scm
scripts/guix-data-service
scripts/guix-data-service-process-jobs
scripts/guix-data-service-query-build-servers
+scripts/guix-data-service-process-branch-updated-email
pre-inst-env
diff --git a/scripts/guix-data-service-process-branch-updated-email b/scripts/guix-data-service-process-branch-updated-email
deleted file mode 100755
index 1762a4a..0000000
--- a/scripts/guix-data-service-process-branch-updated-email
+++ /dev/null
@@ -1,34 +0,0 @@
-#!/gnu/store/njwvn85rrkplkxk6gy5d7v1n0358a91i-profile/bin/guile --no-auto-compile
--*- scheme -*-
--*- geiser-scheme-implementation: guile -*-
-!#
-;;; Guix Data Service -- Information about Guix over time
-;;; Copyright © 2019 Christopher Baines <mail@cbaines.net>
-;;;
-;;; This file is part of guix-data-service.
-;;;
-;;; guix-data-service is free software; you can redistribute it and/or modify it
-;;; under the terms of the GNU General Public License as published by
-;;; the Free Software Foundation; either version 3 of the License, or
-;;; (at your option) any later version.
-;;;
-;;; guix-data-service is distributed in the hope that it will be useful, but
-;;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-;;; General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with the guix-data-service. If not, see <http://www.gnu.org/licenses/>.
-
-(use-modules (srfi srfi-1)
- (srfi srfi-37)
- (ice-9 textual-ports)
- (squee)
- (email email)
- (guix-data-service branch-updated-emails))
-
-(let ((conn (connect-to-postgres-paramstring "dbname=guix_data_service")))
- (enqueue-job-for-email
- conn
- (parse-email
- (get-string-all (current-input-port)))))