voidlizard
/
suckless-conf
mirror of https://github.com/voidlizard/suckless-conf.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fixed-for-9.4.6

This commit is contained in:
Dmitry Zuikov 2023-10-15 10:21:54 +03:00
parent 8e95f8e9c1
commit 3f87278bc1
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
flake.lock
View File

@ -35,11 +35,11 @@
}, },
"nixpkgs": { "nixpkgs": {
"locked": { "locked": {
"lastModified": 1675758091, "lastModified": 1697354318,
"narHash": "sha256-7gFSQbSVAFUHtGCNHPF7mPc5CcqDk9M2+inlVPZSneg=", "narHash": "sha256-djcTObM8B9viipkxD977YBtzKcPwbMZFWLbNThZnkuY=",
"owner": "NixOS", "owner": "NixOS",
"repo": "nixpkgs", "repo": "nixpkgs",
"rev": "747927516efcb5e31ba03b7ff32f61f6d47e7d87", "rev": "2c8de852d2e079b0827e0e64a8f023d79f1ef814",
"type": "github" "type": "github"
}, },
"original": { "original": {

2
lib/Data/Config/Suckless/KeyValue.hs
View File

@ -47,7 +47,7 @@ instance {-# OVERLAPPABLE #-} (HasConf m, HasCfgKey a (Maybe Int) m) => HasCfgVa
cfgValue = lastMay . val <$> getConf cfgValue = lastMay . val <$> getConf
where where
val syn = [ fromIntegral e 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 instance {-# OVERLAPPABLE #-} (HasConf m, HasCfgKey a (Maybe Scientific) m) => HasCfgValue a (Maybe Scientific) m where