path: root/etc/guix-publish.service.in
diff options
context:
space:
mode:
authorLeo Nikkilä <hello@lnikki.la>2022-04-02 21:34:18 +0300
committerLudovic Courtès <ludo@gnu.org>2022-04-05 20:41:40 +0200
commitd15a601a85c85431a691c2a3f85b9e6e0948a540 (patch)
treece34cc7575d07b3959635167cca1f6f862665a2f /etc/guix-publish.service.in
parent86ee397e2658de915d79fd4ad6d2217b941b4682 (diff)
downloadguix-d15a601a85c85431a691c2a3f85b9e6e0948a540.tar.gz
guix-d15a601a85c85431a691c2a3f85b9e6e0948a540.zip
gnu: phodav: Use libsoup 2 instead of libsoup 3.
Looks like phodav requires libsoup 2. Example of failing build logs, wanting libsoup 2.4: <https://ci.guix.gnu.org/build/584454/log/raw> After swapping the dependency, tests were failing due to HOME not being writable. I added a new build phase to account for this. I also removed the start-virtual-dir-server phase which no longer seems required, the tests pass without it. * gnu/packages/gnome.scm (phodav): Fix build, tests. [inputs]: Replace libsoup 3 with libsoup 2. [arguments]<#:phases>[set-temporary-home]: New phase. [arguments]<#:phases>[start-virtual-dir-server]: Remove phase. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'etc/guix-publish.service.in')
0 files changed, 0 insertions, 0 deletions
ervices) "Return all the connman services of ethernet type." (let ((services (connman-services))) (filter (lambda (service) (and (string=? (service-type service) "ethernet") (not (string-null? (service-name service))))) services))) (define (ethernet-service->text service) "Return a string describing the given ethernet SERVICE." (let* ((name (service-name service)) (path (service-path service)) (full-name (string-append name "-" path)) (state (service-state service)) (connected? (or (string=? state "online") (string=? state "ready")))) (format #f "~c ~a~%" (if connected? #\* #\ ) full-name))) (define (connect-ethernet-service service) "Connect to the given ethernet SERVICE. Display a connecting page while the connection is pending." (let* ((service-name (service-name service)) (form (draw-connecting-page service-name))) (connman-connect service) (destroy-form-and-pop form) service)) (define (run-ethernet-page) (match (ethernet-services) (() (run-error-page (G_ "No ethernet service available, please try again.") (G_ "No service")) (abort-to-prompt 'installer-step 'abort)) ((service) ;; Only one service is available so return it directly. service) ((services ...) (run-listbox-selection-page #:info-text (G_ "Please select an ethernet network.") #:title (G_ "Ethernet connection") #:listbox-items services #:listbox-item->text ethernet-service->text #:listbox-height (min (+ (length services) 2) 5) #:button-text (G_ "Exit") #:button-callback-procedure (lambda _ (abort-to-prompt 'installer-step 'abort)) #:listbox-callback-procedure connect-ethernet-service))))