02/02: services: dnsmasq: Extend 'activation-service'.

[guix-commits]

bricewge pushed a commit to branch master
in repository guix.

commit ea55e1355bb3d45d5f04e7cb390d2c6afa8e68e6
Author: Brice Waegeneire <brice@waegenei.re>
AuthorDate: Thu Jun 4 16:14:01 2020 +0200

    services: dnsmasq: Extend 'activation-service'.
    
    * gnu/services/dns.scm (dnsmasq-activation): New procedure …
    (dnsmasq-service-type): … use it.
---
 gnu/services/dns.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/gnu/services/dns.scm b/gnu/services/dns.scm
index 55211cb..aeb2bfd 100644
--- a/gnu/services/dns.scm
+++ b/gnu/services/dns.scm
@@ -861,12 +861,20 @@ cache.size = 100 * MB
                 #:pid-file "/run/dnsmasq.pid"))
       (stop #~(make-kill-destructor))))))
 
+(define (dnsmasq-activation config)
+  #~(begin
+      (use-modules (guix build utils))
+      ;; create directory to store dnsmasq lease file
+      (mkdir-p "/var/lib/misc")))
+
 (define dnsmasq-service-type
   (service-type
    (name 'dnsmasq)
    (extensions
     (list (service-extension shepherd-root-service-type
-                             (compose list dnsmasq-shepherd-service))))
+                             (compose list dnsmasq-shepherd-service))
+          (service-extension activation-service-type
+                             dnsmasq-activation)))
    (default-value (dnsmasq-configuration))
    (description "Run the dnsmasq DNS server.")))