[augeas-devel] augeas: master - Inittab: clean up formatting some

[David Lutterkort]

Gitweb:        http://git.fedorahosted.org/git/augeas.git?p=augeas.git;a=commitdiff;h=7f5e97ccd6f4b526d215fc7169098f70c15317f6
Commit:        7f5e97ccd6f4b526d215fc7169098f70c15317f6
Parent:        4b8fa56ed53e5a7fd96682c5cd9f86c1b2912ab8
Author:        David Lutterkort <lutter at redhat.com>
AuthorDate:    Mon Jun 15 16:45:31 2009 -0700
Committer:     David Lutterkort <lutter at redhat.com>
CommitterDate: Tue Jun 16 11:39:59 2009 -0700

Inittab: clean up formatting some

---
 lenses/inittab.aug |   13 ++++++-------
 1 files changed, 6 insertions(+), 7 deletions(-)

diff --git a/lenses/inittab.aug b/lenses/inittab.aug
index 8d65cd5..86a0dc8 100644
--- a/lenses/inittab.aug
+++ b/lenses/inittab.aug
@@ -10,13 +10,12 @@ module Inittab =
 
    let comment = Util.comment|Util.empty
 
-   let field (name:string) = [ label name . store value ]
-   let record = [ key id . sep .
-                  field("runlevels") . sep .
-                  field("action") . sep .
-                  field("process") .
-                  eol
-                ]
+   let record =
+     let field (name:string) = [ label name . store value ] in
+       [ key id . sep .
+           field "runlevels" . sep .
+           field "action" . sep .
+           field "process" . eol ]
 
    let lns = ( comment | record ) *