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]