From ced2239d539cc2fe601f7041b069f0b3485a2899 Mon Sep 17 00:00:00 2001 From: voidlizard Date: Thu, 31 Jul 2025 07:23:04 +0300 Subject: [PATCH] asDouble fix --- .../suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs | 2 -- 1 file changed, 2 deletions(-) diff --git a/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs b/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs index 1325a79e..ef5a0634 100644 --- a/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs +++ b/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs @@ -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]