From aa0ca6987b09d0403687ead52a57a1fd0fe69254 Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Thu, 3 Nov 2022 22:42:19 -0400 Subject: bugfix --- repgoal.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/repgoal.hs b/repgoal.hs index a342581..7a019db 100755 --- a/repgoal.hs +++ b/repgoal.hs @@ -245,7 +245,7 @@ clipSelectedSession :: St -> St clipSelectedSession st = st & selectedSession %~ maybeReset where len = view (sessions . to NESeq.length) st - maybeReset n | n < 0 = len + maybeReset n | n < 0 = len + n maybeReset n | n < len = n maybeReset _ | otherwise = 0 -- cgit v1.2.3