If it expires, it's on top

1 files changed, 2 insertions, 1 deletions

diff --git a/Model.hs b/Model.hs
index cf0e473..15b9097 100644
--- a/Model.hs
+++ b/Model.hs
@@ -72,7 +72,8 @@ withTypes vals = do
 instance Ord Item where
   x `compare` y = mconcat cmprs
     where
-      cmprs = [ comparing itemOpened x y
+      cmprs = [ comparing (isNever . itemExpires) x y
+              , comparing itemOpened x y
               , comparing itemExpires x y
               , (comparing not `on` itemRunningLow) x y
               , comparing itemKind x y