diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-01-31 20:24:18 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-01-31 20:24:18 +0100 |
commit | 807409d41f8b1a4435ee1cf7ddc3d1a1b9116799 (patch) | |
tree | 41ce7d861f9048863f930b8a9227ca580da17911 /module/calp/main.scm | |
parent | Move use2dot into scripts subdir. (diff) | |
download | calp-807409d41f8b1a4435ee1cf7ddc3d1a1b9116799.tar.gz calp-807409d41f8b1a4435ee1cf7ddc3d1a1b9116799.tar.xz |
Move stuff from calp/util to hnh/util.
This is the first (major) step in splitting the generally useful items
into its own library.
Diffstat (limited to 'module/calp/main.scm')
-rw-r--r-- | module/calp/main.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/module/calp/main.scm b/module/calp/main.scm index 770be556..d1e33d55 100644 --- a/module/calp/main.scm +++ b/module/calp/main.scm @@ -1,16 +1,16 @@ ;; -*- geiser-scheme-implementation: guile -*- (define-module (calp main) - :use-module (calp util) + :use-module (hnh util) :use-module (srfi srfi-1) :use-module (srfi srfi-88) ; keyword syntax :use-module ((calp util config) :select (set-config! get-config get-configuration-documentation)) - :use-module (calp util options) + :use-module (hnh util options) :use-module ((calp util hooks) :select (shutdown-hook)) :use-module ((text markup) :select (sxml->ansi-text)) - :use-module ((calp util exceptions) :select (filter-stack)) + :use-module ((hnh util exceptions) :select (filter-stack)) :use-module (ice-9 getopt-long) :use-module (ice-9 regex) @@ -215,7 +215,7 @@ ;; (define path (read-line pipe)) (define line ((@ (ice-9 rdelim) read-line) pipe)) (define names (string-split line #\space)) - ((@ (calp util io) with-atomic-output-to-file) + ((@ (hnh util io) with-atomic-output-to-file) (path-append (xdg-data-home) "/calp/zoneinfo.scm") (lambda () (write `(set-config! 'tz-list ',names)) (newline) |