Improve code quality in GenSML.hs

iu-parfunc · Oct 3, 2023 · d1c5478 · d1c5478
1 parent 2935674
commit d1c5478
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/gibbon-compiler/src/Gibbon/L1/GenSML.hs b/gibbon-compiler/src/Gibbon/L1/GenSML.hs
@@ -88,7 +88,7 @@ ppAp var pes =
   parens $ var <> case pes of
     [] -> empty               -- don't confuse with application to unit (1 arg)
     [x] -> space <> ppE x
-    _ -> parens (interleave "," $ ppE <$> pes)
+    _ -> parens $ interleave "," $ ppE <$> pes
 
 ppVar :: Var -> Doc
 ppVar = text . getVar