Fix parenthesized function application

There was some weird edge case involving long lines and "simple" arguments
NixOS · Feb 26, 2024 · 6bd07b5 · 6bd07b5
1 parent 6413a12
commit 6bd07b5
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 1 deletion.
diff --git a/src/Nixfmt/Pretty.hs b/src/Nixfmt/Pretty.hs
@@ -347,7 +347,7 @@ prettyApp indentFunction pre hasPost f a
         pretty comment'
         <> (
             if isSimple (Application f a) && isJust (renderedFUnexpanded) then
-                (group' RegularG $ fromJust renderedFUnexpanded <> hardspace <> absorbLast a <> post)
+                (group' RegularG $ fromJust renderedFUnexpanded <> hardspace <> absorbLast a)
             else
                 (group' RegularG $ renderedF <> line <> absorbLast a <> post)
         )

diff --git a/test/diff/apply/in.nix b/test/diff/apply/in.nix
@@ -312,4 +312,6 @@
       # ...
     ) { }
   )
+
+  (badge "https://github.com/maralorn/haskell-taskwarrior/actions/workflows/haskell.yml/badge.svg" "https://github.com/maralorn/haskell-taskwarrior/actions")
 ]
diff --git a/test/diff/apply/out.nix b/test/diff/apply/out.nix
@@ -357,4 +357,6 @@
     something
   # ...
   ) { })
+
+  (badge "https://github.com/maralorn/haskell-taskwarrior/actions/workflows/haskell.yml/badge.svg" "https://github.com/maralorn/haskell-taskwarrior/actions")
 ]
-Original file line number
+Diff line change
@@ Expand Up / @@ -312,4 +312,6 @@ @@
           # ...
         ) { }
       )
+      (badge "https://github.com/maralorn/haskell-taskwarrior/actions/workflows/haskell.yml/badge.svg" "https://github.com/maralorn/haskell-taskwarrior/actions")
     ]