1 files changed, 2 insertions, 1 deletions
diff --git a/Handler/List.hs b/Handler/List.hs
index 7ab4ebe..8f9e777 100644
--- a/Handler/List.hs
+++ b/Handler/List.hs
@@ -28,7 +28,8 @@ list = runDB $ do
  let
    references' = Set.filter (isNothing . flip find items . matches) references
    matches (Reference{..} `WithType` _) Item{..}
-      | today `isBefore` itemExpires = itemNormKind == referenceNormKind
+      | today `isBefore` itemExpires
+      , not $ itemRunningLow = itemNormKind == referenceNormKind
      | otherwise = False
      
    isBefore _ DateNever = True

diff --git a/Handler/List.hs b/Handler/List.hs index 7ab4ebe..8f9e777 100644 --- a/Handler/List.hs +++ b/Handler/List.hs
@@ -28,7 +28,8 @@ list = runDB $ do
28	let	28	let
29	references' = Set.filter (isNothing . flip find items . matches) references	29	references' = Set.filter (isNothing . flip find items . matches) references
30	matches (Reference{..} `WithType` _) Item{..}	30	matches (Reference{..} `WithType` _) Item{..}
31	\| today `isBefore` itemExpires = itemNormKind == referenceNormKind	31	\| today `isBefore` itemExpires
		32	, not $ itemRunningLow = itemNormKind == referenceNormKind
32	\| otherwise = False	33	\| otherwise = False
33		34
34	isBefore _ DateNever = True	35	isBefore _ DateNever = True