Increase list length limit to 6 in functions

This fixes the poor formatting of the last remaining cases of
mkRenamedOptionModule.

We're not removing the line length limit completely because this code
path doesn't enforce the line length limit.

Co-Authored-By: piegames <git@piegames.de>

src/Nixfmt/Pretty.hs

@@ -398,7 +398,7 @@ prettyApp indentFunction pre hasPost f a =
       -- If lists have only simple items, try to render them single-line instead of expanding
       -- This is just a copy of the list rendering code, but with `sepBy line` instead of `sepBy hardline`
       absorbInner (Term (List paropen@Ann{trailComment = post'} items parclose))
-        | length (unItems items) <= 4 && all (isSimple . Term) items =
+        | length (unItems items) <= 6 && all (isSimple . Term) items =
             pretty (paropen{trailComment = Nothing})
               <> surroundWith sur (nest $ pretty post' <> sepBy line (unItems items))
               <> pretty parclose

test/diff/apply_with_lists/out-pure.nix

@@ -18,22 +18,7 @@
     [ ''\"'' "\\\\" ]
     name
   )
-  (replaceStrings
-    [
-      "@"
-      ":"
-      "\\"
-      "["
-      "]"
-    ]
-    [
-      "-"
-      "-"
-      "-"
-      ""
-      ""
-    ]
-  )
+  (replaceStrings [ "@" ":" "\\" "[" "]" ] [ "-" "-" "-" "" "" ])
   (lists.removePrefix
     [
       1
@@ -67,13 +52,7 @@
     [ "hardware" "graphics" ]
   )
   (mkRenamedOptionModule
-    [
-      "services"
-      "xserver"
-      "displayManager"
-      "sddm"
-      "enable"
-    ]
+    [ "services" "xserver" "displayManager" "sddm" "enable" ]
     [ "services" "displayManager" "sddm" "enable" ]
   )
   (map (

test/diff/apply_with_lists/out.nix

@@ -18,22 +18,7 @@
     [ ''\"'' "\\\\" ]
     name
   )
-  (replaceStrings
-    [
-      "@"
-      ":"
-      "\\"
-      "["
-      "]"
-    ]
-    [
-      "-"
-      "-"
-      "-"
-      ""
-      ""
-    ]
-  )
+  (replaceStrings [ "@" ":" "\\" "[" "]" ] [ "-" "-" "-" "" "" ])
   (lists.removePrefix
     [
       1