diff options
-rwxr-xr-x | repgoal.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -245,7 +245,7 @@ clipSelectedSession :: St -> St | |||
245 | clipSelectedSession st = st & selectedSession %~ maybeReset | 245 | clipSelectedSession st = st & selectedSession %~ maybeReset |
246 | where | 246 | where |
247 | len = view (sessions . to NESeq.length) st | 247 | len = view (sessions . to NESeq.length) st |
248 | maybeReset n | n < 0 = len | 248 | maybeReset n | n < 0 = len + n |
249 | maybeReset n | n < len = n | 249 | maybeReset n | n < len = n |
250 | maybeReset _ | otherwise = 0 | 250 | maybeReset _ | otherwise = 0 |
251 | 251 | ||