From 1095c5fb127e5db2313ef2edddee0626c72ce648 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Tue, 1 Mar 2016 10:20:24 +0100
Subject: minor cleanup

---
 tprint/src/Main.hs | 5 -----
 1 file changed, 5 deletions(-)

(limited to 'tprint/src/Main.hs')

diff --git a/tprint/src/Main.hs b/tprint/src/Main.hs
index dcdeb4f..ce4df20 100644
--- a/tprint/src/Main.hs
+++ b/tprint/src/Main.hs
@@ -54,11 +54,6 @@ tprint TPrint{ operation = Jobs{..}, ..} Client{..} out = jobs printer jobRange
           | (JSON, _) <- output = LCBS.hPutStrLn out $ encodePretty js
           | otherwise = hPutStrLn out . dumpStr $ toList js
         jSort (id, time, status) (id', time', status') = queueSort status status' <> compare time' time <> compare id id'
-          where
-            compare' :: Ord a => a -> a -> Ordering
-            compare'
-              | (Queued _) <- status = compare
-              | otherwise = flip compare
         humanStatus (Queued (PrinterId n)) Nothing = "queued at printer #" ++ show n
         humanStatus (Queued _) _ = "queued"
         humanStatus (Printing (PrinterId n)) Nothing = "printing on printer #" ++ show n
-- 
cgit v1.2.3