minor cleanup

1 files changed, 0 insertions, 5 deletions

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