twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -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 Data.Char
import Data.Maybe
import Data.Ord
import Numeric
import System.Environment
import System.IO
@ -61,7 +62,7 @@ entries = unsafePerformIO $ do
hPutStrLn stderr $ show e
hPutStrLn stderr $ "Do you have unicode-data installed?"
return []
Right dat -> return $ sortOn (BS.length . snd) $ parseUnicodeData dat
Right dat -> return $ sortBy (comparing (BS.length . snd)) $ parseUnicodeData dat
{-# NOINLINE entries #-}
parseUnicodeData :: BS.ByteString -> [(Char, BS.ByteString)]