Working for things except lambda binding sites

Author: ChrisPenner

unison-cli/src/Unison/LSP/Queries.hs

@@ -241,9 +241,11 @@ findSmallestEnclosingNode pos term
               Term.Or l r -> findSmallestEnclosingNode pos l <|> findSmallestEnclosingNode pos r
               Term.Lam a -> findSmallestEnclosingNode pos a
               Term.LetRec _isTop xs y ->
-                findSmallestEnclosingNode pos y <|> altSum (findSmallestEnclosingNode pos <$> xs)
+                altSum (findSmallestEnclosingNode pos <$> xs)
+                  <|> findSmallestEnclosingNode pos y
               Term.Let _isTop a b ->
-                findSmallestEnclosingNode pos b <|> findSmallestEnclosingNode pos a
+                findSmallestEnclosingNode pos a
+                  <|> findSmallestEnclosingNode pos b
               Term.Match a cases ->
                 findSmallestEnclosingNode pos a
                   <|> altSum (cases <&> \(MatchCase pat grd body) -> ((PatternNode <$> findSmallestEnclosingPattern pos pat) <|> (grd >>= findSmallestEnclosingNode pos) <|> findSmallestEnclosingNode pos body))