Allow for partial reloading

src/Dodge/Base.hs

@@ -38,6 +38,11 @@ takeUntil p = foldr (\x xs -> x : if p x then [] else xs) []
 decreaseToZero :: Int -> Int
 decreaseToZero x = max 0 (x - 1) 
 
+decreaseToNothing' :: (Num a, Ord a) => Maybe' a -> Maybe' a
+decreaseToNothing' ma = case ma of
+    Just' x | x > 0 -> Just' (x - 1)
+    _ -> Nothing'
+
 safeHead :: [a] -> Maybe a
 safeHead (x:_) = Just x
 safeHead _ = Nothing