FIX counter error
This commit is contained in:
parent
354310bf08
commit
c791c5a692
|
@ -147,7 +147,7 @@ zipperMatch' z x = go z
|
||||||
|
|
||||||
matchDec :: Match -> Maybe Match
|
matchDec :: Match -> Maybe Match
|
||||||
matchDec m = case mTimes m of
|
matchDec m = case mTimes m of
|
||||||
Just 0 -> Nothing
|
Just 1 -> Nothing
|
||||||
Just n -> Just $ m {mTimes = Just $ n - 1}
|
Just n -> Just $ m {mTimes = Just $ n - 1}
|
||||||
Nothing -> Just m
|
Nothing -> Just m
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue