From 998864578605c2d99299072320208e731ed5099c Mon Sep 17 00:00:00 2001 From: tv Date: Wed, 24 Dec 2014 20:28:07 +0100 Subject: flip arguments of focus{Prev,Next} --- ThreadView.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'ThreadView.hs') diff --git a/ThreadView.hs b/ThreadView.hs index e2b1a4b..091c2d0 100644 --- a/ThreadView.hs +++ b/ThreadView.hs @@ -86,17 +86,17 @@ describe (TVMessagePart _ p) = "TVMessagePart " <> show (partID p) -- where -- msgs = flatten t -focusPrev :: Maybe ThreadView -> Tree ThreadView -> Maybe ThreadView -focusPrev Nothing v = lastMay (flatten v) -focusPrev (Just cur) v = do +focusPrev :: Tree ThreadView -> Maybe ThreadView -> Maybe ThreadView +focusPrev v Nothing = lastMay (flatten v) +focusPrev v (Just cur) = do i <- elemIndex cur items maybe (lastMay items) Just $ atMay items (i - 1) where items = flatten v -focusNext :: Maybe ThreadView -> Tree ThreadView -> Maybe ThreadView -focusNext Nothing v = headMay (flatten v) -focusNext (Just cur) v = do +focusNext :: Tree ThreadView -> Maybe ThreadView -> Maybe ThreadView +focusNext v Nothing = headMay (flatten v) +focusNext v (Just cur) = do i <- elemIndex cur items maybe (headMay items) Just $ atMay items (i + 1) where -- cgit v1.2.3