[augeas-devel] [PATCH 1 of 2] improve regexp unions in dput.aug

[Raphael Pinson]

# HG changeset patch
# User Raphael Pinson <raphink at gmail.com>
# Date 1217324903 -7200
# Node ID f006050dba692ef9b857b6cc4192fda4eac8f9bf
# Parent  dcdc1717c8e0fb54f72d3acb7752896f52f77894
improve regexp unions in dput.aug

diff -r dcdc1717c8e0 -r f006050dba69 lenses/dput.aug
--- a/lenses/dput.aug	Fri Jul 25 13:54:55 2008 +0200
+++ b/lenses/dput.aug	Tue Jul 29 11:48:23 2008 +0200
@@ -6,26 +6,28 @@ module Dput =
 module Dput =
   autoload xfm
 
-    let setting = IniFile.entry "allow_non-us_software"
-                | IniFile.entry "allow_unsigned_uploads"
-                | IniFile.entry "check_version"
-                | IniFile.entry "default_host_main"
-                | IniFile.entry "default_host_non-us"
-                | IniFile.entry "fqdn"
-                | IniFile.entry "hash"
-                | IniFile.entry "incoming"
-                | IniFile.entry "login"
-                | IniFile.entry "method"
-                | IniFile.entry "passive_ftp"
-                | IniFile.entry "post_upload_command"
-                | IniFile.entry "pre_upload_command"
-                | IniFile.entry "progress_indicator"
-                | IniFile.entry "run_dinstall"
-                | IniFile.entry "run_lintian"
-                | IniFile.entry "scp_compress"
-		| IniFile.entry "ssh_config_options"
+    let setting = "allow_non-us_software"
+                | "allow_unsigned_uploads"
+                | "check_version"
+                | "default_host_main"
+                | "default_host_non-us"
+                | "fqdn"
+                | "hash"
+                | "incoming"
+                | "login"
+                | "method"
+                | "passive_ftp"
+                | "post_upload_command"
+                | "pre_upload_command"
+                | "progress_indicator"
+                | "run_dinstall"
+                | "run_lintian"
+                | "scp_compress"
+		| "ssh_config_options"
+	
+    let entry = IniFile.entry setting
 
-    let record = IniFile.record "target" setting
+    let record = IniFile.record "target" entry
 
     let lns = IniFile.lns record