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

Do not use sortOn

Browse Source 
as it is not available in old versions of base.
This commit is contained in:
Joachim Breitner 2016-10-07 15:40:04 -04:00
parent feec53c78c
commit 01ddbb7b82
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
XMonad/Prompt/Unicode.hs
View File

@ -22,6 +22,7 @@ module XMonad.Prompt.Unicode (
import qualified Data.ByteString.Char8 as BS import qualified Data.ByteString.Char8 as BS
import Data.Char import Data.Char
import Data.Maybe import Data.Maybe
import Data.Ord
import Numeric import Numeric
import System.Environment import System.Environment
import System.IO import System.IO
@ -61,7 +62,7 @@ entries = unsafePerformIO $ do
hPutStrLn stderr $ show e hPutStrLn stderr $ show e
hPutStrLn stderr $ "Do you have unicode-data installed?" hPutStrLn stderr $ "Do you have unicode-data installed?"
return [] return []
Right dat -> return $ sortOn (BS.length . snd) $ parseUnicodeData dat Right dat -> return $ sortBy (comparing (BS.length . snd)) $ parseUnicodeData dat
{-# NOINLINE entries #-} {-# NOINLINE entries #-}
parseUnicodeData :: BS.ByteString -> [(Char, BS.ByteString)] parseUnicodeData :: BS.ByteString -> [(Char, BS.ByteString)]