From 01ddbb7b82eaa3e99a19ee00a0cfe05ac39c4195 Mon Sep 17 00:00:00 2001
From: Joachim Breitner <mail@joachim-breitner.de>
Date: Fri, 7 Oct 2016 15:40:04 -0400
Subject: [PATCH] Do not use sortOn

as it is not available in old versions of base.
---
 XMonad/Prompt/Unicode.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/XMonad/Prompt/Unicode.hs b/XMonad/Prompt/Unicode.hs
index ec2ecf31..39167ce2 100644
--- a/XMonad/Prompt/Unicode.hs
+++ b/XMonad/Prompt/Unicode.hs
@@ -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)]