From 0c50ae13e1f74f4e16b2ce5084ed353da664f827 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Fri, 17 Jan 2020 08:17:23 +1300
Subject: [PATCH] Reverse locale reformatting for XDG config localized lookup.

---
 src/Network/URI/XDG/Ini.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/Network/URI/XDG/Ini.hs b/src/Network/URI/XDG/Ini.hs
index 09a2d6e..7e72f5c 100644
--- a/src/Network/URI/XDG/Ini.hs
+++ b/src/Network/URI/XDG/Ini.hs
@@ -36,6 +36,10 @@ iniLookup group key ini = lookup group ini >>= lookup key
 
 iniLookupLocalized :: [String] -> String -> String -> INI -> Maybe String
 iniLookupLocalized (locale:locales) group key ini
-    | Just ret <- iniLookup group (key ++ "[" ++ locale ++ "]") ini = Just ret
+    | Just ret <- iniLookup group (key ++ "[" ++ locale' ++ "]") ini = Just ret
     | otherwise = iniLookupLocalized locales group key ini
+    where locale' = map dash2under locale
 iniLookupLocalized [] group key ini = iniLookup group key ini
+
+dash2under '-' = '_'
+dash2under c = c
-- 
2.30.2