1 files changed, 1 insertions, 3 deletions
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