1 files changed, 5 insertions(+), 1 deletions(-)

M 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