diff options
Diffstat (limited to 'Handler')
| -rw-r--r-- | Handler/List.hs | 3 |
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 | |||
| 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 |