From 1cdbdef513f9266f32e16cec7cd0620ebf1db544 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 8 Apr 2019 21:02:57 +0100 Subject: Remove built guix-data-service-process-branch-updated-email file It should never have been committed. --- .gitignore | 1 + .../guix-data-service-process-branch-updated-email | 34 ---------------------- 2 files changed, 1 insertion(+), 34 deletions(-) delete mode 100755 scripts/guix-data-service-process-branch-updated-email 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 -;;; -;;; 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 . - -(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))))) -- cgit v1.2.3