From 8851d078e8f0dec420ccfd0219ad5d8d4d912f7c Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 18 Apr 2017 23:22:00 +0200 Subject: If it expires, it's on top --- Model.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3