From 84e6bb9cd5dbca0efa37fcbafe3e1107a206f460 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Sat, 11 Mar 2017 23:09:27 +0100
Subject: Fix sorting

---
 bragi/bar.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'bragi/bar.hs')

diff --git a/bragi/bar.hs b/bragi/bar.hs
index 1cf10fdf..40548f37 100755
--- a/bragi/bar.hs
+++ b/bragi/bar.hs
@@ -65,6 +65,7 @@ instance Ord Item where
   x `compare` y = mconcat
                   [ (isNothing $ itemOpened x) `compare` (isNothing $ itemOpened y)
                   , itemOpened x `compare` itemOpened y
+                  , (isNothing $ itemExpires x) `compare` (isNothing $ itemExpires y)
                   , itemExpires x `compare` itemExpires x
                   , itemKind x `compare` itemKind x
                   , itemBought x `compare` itemBought x
-- 
cgit v1.2.3