voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs
View File

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