From ca8439b6787eb238d7b07544dfc728488f3c71b6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= Date: Tue, 22 Sep 2020 23:40:00 +0200 Subject: lint --- TreeSearch.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'TreeSearch.hs') diff --git a/TreeSearch.hs b/TreeSearch.hs index 105603a..518c4d9 100644 --- a/TreeSearch.hs +++ b/TreeSearch.hs @@ -32,9 +32,7 @@ findPrev :: TreePos Full a -> Maybe (TreePos Full a) findPrev loc = case prev loc of Just x -> trans_lastChild x - Nothing -> case parent loc of - Just x -> Just x - Nothing -> Nothing + Nothing -> parent loc where trans_lastChild x = case lastChild x of -- cgit v1.2.3