1 files changed, 3 insertions, 0 deletions

diff --git a/Model.hs b/Model.hs
index 3554049..cf0e473 100644
--- a/Model.hs
+++ b/Model.hs
@@ -128,6 +128,7 @@ data ItemDiff = DiffKind Text
               | DiffBought ItemDate
               | DiffExpires ItemDate
               | DiffOpened ItemDate
+              | DiffRunningLow Bool
 
 newtype ItemDiffs = ItemDiffs [ItemDiff]
 
@@ -138,6 +139,7 @@ instance FromJSON ItemDiffs where
     tell =<< maybe [] (pure . DiffBought) <$> lift (obj .:! "bought")
     tell =<< maybe [] (pure . DiffExpires) <$> lift (obj .:! "expires")
     tell =<< maybe [] (pure . DiffOpened) <$> lift (obj .:! "opened")
+    tell =<< maybe [] (pure . DiffRunningLow) <$> lift (obj .:? "running-low")
 
 toUpdate :: ItemDiffs -> ([Update Item], [Update Kind])
 toUpdate (ItemDiffs ds) = mconcat $ do
@@ -150,6 +152,7 @@ toUpdate (ItemDiffs ds) = mconcat $ do
     DiffBought d  -> (, []) [ ItemBought =. d ]
     DiffExpires d -> (, []) [ ItemExpires =. d ]
     DiffOpened d  -> (, []) [ ItemOpened =. d ]
+    DiffRunningLow b -> (, []) [ ItemRunningLow =. b ]
 
 data WithType a = WithType { typedVal :: a, valType :: Text }
   deriving (Eq, Ord, Show, Functor)