;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix 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.
;;;
;;; GNU Guix 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 GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu installer proxy)
  #:use-module (gnu services herd)
  #:export (set-http-proxy
            clear-http-proxy))

(define-syntax-rule (with-silent-shepherd exp ...)
  (parameterize ((shepherd-message-port
                  (%make-void-port "w")))
    exp ...))

(define (set-http-proxy proxy)
  (with-silent-shepherd
    (with-shepherd-action 'guix-daemon
        ('set-http-proxy proxy)
        result
      result)))

(define (clear-http-proxy)
  (with-silent-shepherd
    (with-shepherd-action 'guix-daemon
        ('set-http-proxy)
        result
      result)))

;; Local Variables:
;; eval: (put 'with-silent-shepherd 'scheme-indent-function 0)
;; End:
f/gnu/build/shepherd.scm?id=6d02e171398df4b0fccbb6f04462d4de00f036d7'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/build/shepherd.scm'>
<input type='hidden' name='id' value='6d02e171398df4b0fccbb6f04462d4de00f036d7'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=6d02e171398df4b0fccbb6f04462d4de00f036d7'>root</a>/<a href='/guix/log/gnu?id=6d02e171398df4b0fccbb6f04462d4de00f036d7'>gnu</a>/<a href='/guix/log/gnu/build?id=6d02e171398df4b0fccbb6f04462d4de00f036d7'>build</a>/<a href='/guix/log/gnu/build/shepherd.scm?id=6d02e171398df4b0fccbb6f04462d4de00f036d7'>shepherd.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/build/shepherd.scm?id=6d02e171398df4b0fccbb6f04462d4de00f036d7&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-06-12 00:04:42 +0200'>2020-06-12</span></td><td><a href='/guix/commit/gnu/build/shepherd.scm?id=8a02e45d93c2a825363da282791ac16f15b415e4'>shepherd: 'read-pid-file/container' terminates the whole process group.</a><span class='msg-avail'>...<span class='msg-tooltip'>This mirrors a change made in the Shepherd 0.8.0.  Previously, upon
startup failure, we could have left processes behind.

* gnu/build/shepherd.scm (read-pid-file/container): Kill (- PID) instead
of PID.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-06-12 00:04:42 +0200'>2020-06-12</span></td><td><a href='/guix/commit/gnu/build/shepherd.scm?id=b6b95685d0b478698d648f13afd927b1e1700d99'>shepherd: Unblock signals in the child process.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://bugs.gnu.org/41791&gt;.
Reported by Tobias Geerinckx-Rice &lt;me@tobias.gr&gt;.

This change mirrors changes made in the Shepherd 0.8.1, where signals
are blocked in the shepherd process in support of 'signalfd'.  The
regression was introduced with the switch to 0.8.1 in
3f9c62d1a8b345909adaeb22f454ad22554c55a1: child processes would not
receive SIGTERM upon 'herd stop SERVICE'.

* gnu/build/shepherd.scm &lt;top level&gt;: Autoload (shepherd system).
(make-forkexec-constructor/container): Call call to 'sigaction' and
'unblock-signals'.
</span></span></td><td>Ludovic Courtès</td></tr>