diff options
Diffstat (limited to 'gnu/services/mcron.scm')
| -rw-r--r-- | gnu/services/mcron.scm | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/gnu/services/mcron.scm b/gnu/services/mcron.scm index 68d02ef4d7c..c8099480b84 100644 --- a/gnu/services/mcron.scm +++ b/gnu/services/mcron.scm | |||
| @@ -18,6 +18,21 @@ | |||
| 18 | ;;; You should have received a copy of the GNU General Public License | 18 | ;;; You should have received a copy of the GNU General Public License |
| 19 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | 19 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. |
| 20 | 20 | ||
| 21 | ;;; Commentary: | ||
| 22 | ;;; | ||
| 23 | ;;; This module implements a service that to run instances of GNU mcron, a | ||
| 24 | ;;; periodic job execution daemon. Example of a service: | ||
| 25 | ;; | ||
| 26 | ;; (service mcron-service-type | ||
| 27 | ;; (mcron-configuration | ||
| 28 | ;; (jobs (list #~(job next-second-from | ||
| 29 | ;; (lambda () | ||
| 30 | ;; (call-with-output-file "/dev/console" | ||
| 31 | ;; (lambda (port) | ||
| 32 | ;; (display "hello!\n" port))))))))) | ||
| 33 | ;;; | ||
| 34 | ;;; Code: | ||
| 35 | |||
| 21 | (define-module (gnu services mcron) | 36 | (define-module (gnu services mcron) |
| 22 | #:use-module (gnu services) | 37 | #:use-module (gnu services) |
| 23 | #:use-module (gnu services shepherd) | 38 | #:use-module (gnu services shepherd) |
| @@ -39,21 +54,6 @@ | |||
| 39 | 54 | ||
| 40 | mcron-service-type)) | 55 | mcron-service-type)) |
| 41 | 56 | ||
| 42 | ;;; Commentary: | ||
| 43 | ;;; | ||
| 44 | ;;; This module implements a service that to run instances of GNU mcron, a | ||
| 45 | ;;; periodic job execution daemon. Example of a service: | ||
| 46 | ;; | ||
| 47 | ;; (service mcron-service-type | ||
| 48 | ;; (mcron-configuration | ||
| 49 | ;; (jobs (list #~(job next-second-from | ||
| 50 | ;; (lambda () | ||
| 51 | ;; (call-with-output-file "/dev/console" | ||
| 52 | ;; (lambda (port) | ||
| 53 | ;; (display "hello!\n" port))))))))) | ||
| 54 | ;;; | ||
| 55 | ;;; Code: | ||
| 56 | |||
| 57 | ;; Configuration of mcron. | 57 | ;; Configuration of mcron. |
| 58 | ;; XXX: 'define-configuration' cannot be used here due to the need for | 58 | ;; XXX: 'define-configuration' cannot be used here due to the need for |
| 59 | ;; 'thunked' and 'innate' fields as well as 'this-mcron-configuration'. | 59 | ;; 'thunked' and 'innate' fields as well as 'this-mcron-configuration'. |
