diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-28 15:45:03 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-28 15:45:03 +0200 |
| commit | 1a0821766baeb793d36dff0099810aeb0e202c00 (patch) | |
| tree | 0141c0415f457fa42cb5f31be2319c6c68aa5b73 /Handler | |
| parent | d28c483bdba02cf4163e99efcb07f2ee525ddda1 (diff) | |
| download | bar-1a0821766baeb793d36dff0099810aeb0e202c00.tar bar-1a0821766baeb793d36dff0099810aeb0e202c00.tar.gz bar-1a0821766baeb793d36dff0099810aeb0e202c00.tar.bz2 bar-1a0821766baeb793d36dff0099810aeb0e202c00.tar.xz bar-1a0821766baeb793d36dff0099810aeb0e202c00.zip | |
Low items don't count against shopping list
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 |