Fix bug with the foreign expression precedence.

Unisay · Unisay · commit 45f3508813b7 · 2024-04-01T18:25:17.000+02:00
diff --git a/lib/Language/PureScript/Backend/Lua/Printer.hs b/lib/Language/PureScript/Backend/Lua/Printer.hs
@@ -76,7 +76,7 @@ printExp = \case
         (printExp prefix)
         (printExp . unAnn <$> args)
     )
-  Lua.ForeignSourceExp code → (PrecAtom, pretty code)
+  Lua.ForeignSourceExp code → (PrecFunction, pretty code)
 
 printUnaryOp ∷ Lua.UnaryOp → PADoc → PADoc
 printUnaryOp op (_, a) = (prec op, pretty (sym op) <> parens a)

Original file line number	Diff line number	Diff line change
`@@ -76,7 +76,7 @@ printExp = \case`
`76`	`76`	`(printExp prefix)`
`77`	`77`	`(printExp . unAnn <$> args)`
`78`	`78`	`)`
`79`		`- Lua.ForeignSourceExp code → (PrecAtom, pretty code)`
	`79`	`+ Lua.ForeignSourceExp code → (PrecFunction, pretty code)`
`80`	`80`
`81`	`81`	`printUnaryOp ∷ Lua.UnaryOp → PADoc → PADoc`
`82`	`82`	`printUnaryOp op (_, a) = (prec op, pretty (sym op) <> parens a)`