Improve formatting of product printer

iu-parfunc · Oct 11, 2023 · 3500b60 · 3500b60
1 parent 0f851d7
commit 3500b60
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/gibbon-compiler/src/Gibbon/L1/GenSML.hs b/gibbon-compiler/src/Gibbon/L1/GenSML.hs
@@ -389,7 +389,11 @@ printerTy1 ty1 d = case ty1 of
       , "in ()"
       ]
     where
-      ppSub (i, x) = "val _ = " <> printerTy1 x ("x__" <> int i) <> "val _ = print \" \""
+      ppSub (i, x) = hsep
+        [ "val _ ="
+        , printerTy1 x ("x__" <> int i)
+        , "val _ = print \" \""
+        ]
   SymDictTy _m_var _ut -> _
   PackedTy s () -> "internal_print_" <> text s <> parens d
   VectorTy ut ->