From 3f87278bc10ac4f14a6d9d2c75cbbed228509129 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Sun, 15 Oct 2023 10:21:54 +0300
Subject: [PATCH] fixed-for-9.4.6

---
 flake.lock                           | 6 +++---
 lib/Data/Config/Suckless/KeyValue.hs | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/flake.lock b/flake.lock
index a88e102..6db2eca 100644
--- a/flake.lock
+++ b/flake.lock
@@ -35,11 +35,11 @@
     },
     "nixpkgs": {
       "locked": {
-        "lastModified": 1675758091,
-        "narHash": "sha256-7gFSQbSVAFUHtGCNHPF7mPc5CcqDk9M2+inlVPZSneg=",
+        "lastModified": 1697354318,
+        "narHash": "sha256-djcTObM8B9viipkxD977YBtzKcPwbMZFWLbNThZnkuY=",
         "owner": "NixOS",
         "repo": "nixpkgs",
-        "rev": "747927516efcb5e31ba03b7ff32f61f6d47e7d87",
+        "rev": "2c8de852d2e079b0827e0e64a8f023d79f1ef814",
         "type": "github"
       },
       "original": {
diff --git a/lib/Data/Config/Suckless/KeyValue.hs b/lib/Data/Config/Suckless/KeyValue.hs
index 63e5012..ee80b81 100644
--- a/lib/Data/Config/Suckless/KeyValue.hs
+++ b/lib/Data/Config/Suckless/KeyValue.hs
@@ -47,7 +47,7 @@ instance {-# OVERLAPPABLE #-} (HasConf m, HasCfgKey a (Maybe Int) m) => HasCfgVa
   cfgValue = lastMay . val <$> getConf
     where
       val syn = [ fromIntegral e
-                | ListVal @C (Key s [LitIntVal e]) <- syn, s == key @a @(Maybe Int) @m
+                | ListVal (Key s [LitIntVal e]) <- syn, s == key @a @(Maybe Int) @m
                 ]
 
 instance {-# OVERLAPPABLE #-} (HasConf m, HasCfgKey a (Maybe Scientific) m) => HasCfgValue a (Maybe Scientific) m where