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

fix

This commit is contained in:
Dmitry Zuikov 2023-12-31 08:42:02 +03:00
parent e466a5dd9f
commit 8cfc1272bb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -71,7 +71,7 @@ instance {-# OVERLAPPABLE #-} (HasConf m, HasCfgKey a (Maybe Value) m) => HasCfg
| ListVal (Key s [v@ListVal{}]) <- syn, s == key @a @(Maybe Value) @m | ListVal (Key s [v@ListVal{}]) <- syn, s == key @a @(Maybe Value) @m
] ]
instance {-# OVERLAPPABLE #-} (HasConf m, Ord b, IsString b, HasCfgKey a (Maybe b) m) => HasCfgValue a (Maybe b) m where instance {-# OVERLAPPABLE #-} (HasConf m, IsString b, HasCfgKey a (Maybe b) m) => HasCfgValue a (Maybe b) m where
cfgValue = lastMay . val <$> getConf cfgValue = lastMay . val <$> getConf
where where
val syn = [ fromString (show $ pretty e) val syn = [ fromString (show $ pretty e)