asDouble fix

This commit is contained in:
voidlizard 2025-07-31 07:23:04 +03:00
parent 63ff57f54b
commit ced2239d53
1 changed files with 0 additions and 2 deletions

View File

@ -2452,8 +2452,6 @@ asDouble :: forall c . IsContext c => Syntax c -> Double
asDouble = \case
LitIntVal n -> realToFrac n
LitScientificVal n -> realToFrac n
LitBoolVal False -> 0.0
LitBoolVal True -> 1.0
_ -> 0.0
arglistOrList :: forall c . IsContext c => [Syntax c] -> [Syntax c]