fixed bug affecting GLSL expressions with negative float constants

dktr0 · Oct 24, 2024 · 24c7642 · 24c7642
1 parent 7dde560
commit 24c7642
Show file tree

Hide file tree

Showing 2 changed files with 31 additions and 31 deletions.
diff --git a/punctual.js b/punctual.js
diff --git a/src/Expr.purs b/src/Expr.purs
@@ -68,7 +68,7 @@ instance Expr Float where
   unaryFunction f _ (FloatConstant x) = FloatConstant (f x)
   unaryFunction _ f (FloatExpr x) = FloatExpr (f x)
   binaryFunction f _ (FloatConstant x) (FloatConstant y) = FloatConstant (f x y)
-  binaryFunction _ f x y = FloatExpr (f (toExpr x) (toExpr y))
+  binaryFunction _ f x y = FloatExpr (f (toExprSafe x) (toExprSafe y))
   showType _ = "float"
   fromFloat = identity
   fromFloats = identity