diff --git a/lib/Internal/Utils.hs b/lib/Internal/Utils.hs index 6e37dd1..3873a3f 100644 --- a/lib/Internal/Utils.hs +++ b/lib/Internal/Utils.hs @@ -343,8 +343,7 @@ showMatch Match {mDate = d, mVal = v, mDesc = e, mOther = o, mTimes = n, mPriori , ("val", showMatchVal v) , ("desc", e) , ("other", others) - , -- TODO it might be best to always show this - ("counter", showT <$> n) + , ("counter", Just $ maybe "Inf" showT n) , ("priority", Just $ showT p) ] others = case o of