Improve code quality

iu-parfunc · Oct 11, 2023 · 10fda37 · 10fda37
1 parent 3500b60
commit 10fda37
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
@@ -391,7 +391,7 @@ printerTy1 ty1 d = case ty1 of
     where
       ppSub (i, x) = hsep
         [ "val _ ="
-        , printerTy1 x ("x__" <> int i)
+        , printerTy1 x $ "x__" <> int i
         , "val _ = print \" \""
         ]
   SymDictTy _m_var _ut -> _