From 0e4c92503e131fdd7de86b5ab27d5ada0fdc44c5 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 15 Apr 2020 13:04:00 -0400 Subject: [PATCH] fix warning I don't think the NoConfigValue case ever actually occurs here. --- Logs/Config.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Logs/Config.hs b/Logs/Config.hs index 63bddfe5c0..f9e31561e3 100644 --- a/Logs/Config.hs +++ b/Logs/Config.hs @@ -64,7 +64,10 @@ parseGlobalConfig = parseMapLog configkeyparser valueparser valueparser = ConfigValue <$> A.takeByteString loadGlobalConfig :: Annex (M.Map ConfigKey ConfigValue) -loadGlobalConfig = M.filter (\(ConfigValue v) -> not (S.null v)) +loadGlobalConfig = M.filter nonempty . simpleMap . parseGlobalConfig <$> Annex.Branch.get configLog + where + nonempty (ConfigValue v) = not (S.null v) + nonempty NoConfigValue = True