-- | Helper function to decrement a base value depending on the passed
-- boolean argument.
decIf :: (Num a) => Bool -> a -> a -> a
decIf True  base delta = base - delta
decIf :: (Num a) => Bool -> a -> a -> a
decIf True  base delta = base - delta
decIf True  base delta = base - delta