File 7558c12-host_conf-spaces.patch of Package augeas

Overview Repositories Revisions Requests Users Attributes Meta

File 7558c12-host_conf-spaces.patch of Package augeas (Revision 3239b91483a79994687d376f3ef8d6f1)

Currently displaying revision 3239b91483a79994687d376f3ef8d6f1 , Show latest

From 7558c12259d0c46cace7c8635e25281296337ea9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?C=C3=A9dric=20Bosdonnat?= <cedric.bosdonnat@free.fr>
Date: Tue, 8 Mar 2016 11:09:28 +0100
Subject: [PATCH] host_conf lens: spaces between list items support

List items are separated by commas in host.conf, but we may find spaces
on top of the comma.
---
 lenses/host_conf.aug            | 2 +-
 lenses/tests/test_host_conf.aug | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lenses/host_conf.aug b/lenses/host_conf.aug
index 00a3492..294975b 100644
--- a/lenses/host_conf.aug
+++ b/lenses/host_conf.aug
@@ -44,7 +44,7 @@ let bool_warn (kw:regexp) = Build.key_value_line kw Sep.space sto_bool_warn
 (* View: list
     A list of items *)
 let list (kw:regexp) (elem:string) =
-  let list_elems = Build.opt_list [seq elem . store Rx.word] (Sep.comma) in
+  let list_elems = Build.opt_list [seq elem . store Rx.word] (Sep.comma . Sep.opt_space) in
   Build.key_value_line kw Sep.space list_elems
 
 (* View: trim *)
diff --git a/lenses/tests/test_host_conf.aug b/lenses/tests/test_host_conf.aug
index 146abde..f0df5ab 100644
--- a/lenses/tests/test_host_conf.aug
+++ b/lenses/tests/test_host_conf.aug
@@ -3,7 +3,7 @@ module Test_Host_Conf =
 let conf = "
 # /etc/host.conf
 # We have named running, but no NIS (yet)
-order   bind,hosts
+order   bind, hosts
 # Allow multiple addrs
 multi   on
 # Guard against spoof attempts
-- 
2.6.6

Places

File 7558c12-host_conf-spaces.patch of Package augeas (Revision 3239b91483a79994687d376f3ef8d6f1)

Places