twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-22 07:23:47 -07:00
Code Issues Packages Projects Releases Wiki Activity

Fix GHC warning: -Wname-shadowing

Browse Source 
Related: https://github.com/xmonad/xmonad-contrib/issues/537
This commit is contained in:
slotThe
2021-05-20 11:11:42 +02:00
parent b51ccc87b8
commit 673f727206
11 changed files with 57 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad/Prompt/Unicode.hs
View File

@@ -100,13 +100,13 @@ searchUnicode entries p s = map (second BS.unpack) $ filter go entries
go (_, d) = all (`p` (BS.unpack d)) w
mkUnicodePrompt :: String -> [String] -> String -> XPConfig -> X ()
mkUnicodePrompt prog args unicodeDataFilename config =
mkUnicodePrompt prog args unicodeDataFilename xpCfg =
whenX (populateEntries unicodeDataFilename) $ do
entries <- fmap getUnicodeData (XS.get :: X UnicodeData)
mkXPrompt
Unicode
(config {sorter = sorter config . map toUpper})
(unicodeCompl entries $ searchPredicate config)
(xpCfg {sorter = sorter xpCfg . map toUpper})
(unicodeCompl entries $ searchPredicate xpCfg)
paste
where
unicodeCompl :: [(Char, BS.ByteString)] -> Predicate -> String -> IO [String]