Sshd: reset seq counter for each array setting

jgaret · Sep 18, 2012 · f04d7df · f04d7df
1 parent 36fa864
commit f04d7df
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/lenses/sshd.aug b/lenses/sshd.aug
@@ -78,7 +78,7 @@ module Sshd =
 
    let array_entry (k:string) =
      let value = store /[^ \t\n]+/ in
-     [ key k . [ sep . seq k . value]* . eol ]
+     [ key k . counter k . [ sep . seq k . value]* . eol ]
 
    let other_entry =
      let value = store /[^ \t\n]+([ \t]+[^ \t\n]+)*/ in
@@ -100,7 +100,7 @@ module Sshd =
 
    let macs =
      let mac_value = store /[^, \t\n]+/ in
-     [ key "MACs" . sep .
+     [ key "MACs" . sep . counter "macs" .
          [ seq "macs" . mac_value ] .
          ([ seq "macs" . Util.del_str "," . mac_value])* .
          eol ]

diff --git a/lenses/tests/test_sshd.aug b/lenses/tests/test_sshd.aug
@@ -13,8 +13,8 @@ AcceptEnv LC_IDENTIFICATION LC_ALL\n"
         { "4" = "LC_TELEPHONE" }
         { "5" = "LC_MEASUREMENT" } }
     { "AcceptEnv"
-        { "6" = "LC_IDENTIFICATION" }
-        { "7" = "LC_ALL" } }
+        { "1" = "LC_IDENTIFICATION" }
+        { "2" = "LC_ALL" } }
 
 
   test Sshd.lns get "HostKey /etc/ssh/ssh_host_rsa_key