From 8cfc1272bb79ef6ad62ae6a625f21e239916d196 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Sun, 31 Dec 2023 08:42:02 +0300 Subject: [PATCH] fix --- lib/Data/Config/Suckless/KeyValue.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/Data/Config/Suckless/KeyValue.hs b/lib/Data/Config/Suckless/KeyValue.hs index 0b5b1bf..c27aacd 100644 --- a/lib/Data/Config/Suckless/KeyValue.hs +++ b/lib/Data/Config/Suckless/KeyValue.hs @@ -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 ] -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 where val syn = [ fromString (show $ pretty e)