* Don't sort the helper function sections.

svn path=/nixpkgs/trunk/; revision=6763

1 files changed, 5 insertions, 2 deletions

diff --git a/maintainers/scripts/sort-attrs.str b/maintainers/scripts/sort-attrs.str
index 20063be8ef93..b67b6ee2a57b 100644
--- a/maintainers/scripts/sort-attrs.str
+++ b/maintainers/scripts/sort-attrs.str
@@ -61,7 +61,7 @@ rules
       <map({x', x'', x''', xs', starts, starts': \[x | xs] -> [x''' | xs']
         where
           <remove-section-start> x => (x', starts);
-          <map(regularise-empty-lines); qsort(compare-attrs)> [x' | xs] => [x'' | xs'];
+          <map(regularise-empty-lines); if !starts; debug; sortable-section; debug then qsort(compare-attrs) else id end> [x' | xs] => [x'' | xs'];
           <[] <+ \x -> ["\n\n\n" | x]\ > starts => starts';
           <prepend-layout> (starts', x'') => x'''
       \ })> groups => attrs';
@@ -79,9 +79,12 @@ strategies
     <implode-string; is-substring(!"###")> cs;
     !x
 
-    
 rules
+
     
+  sortable-section = ?[s]; !s; explode-string; not(fetch({x: ?x; !(x, 97); geq}))
+
+
   remove-section-start:
     (appl(prod([cf(layout())], cf(opt(layout())), no-attrs()), cs), attr) ->
     ((appl(prod([cf(layout())], cf(opt(layout())), no-attrs()), cs'), attr), starts)