From 0eb1a0ad1c82e080e77e7b9d7a5e42632cefb543 Mon Sep 17 00:00:00 2001
From: Marc Jakobi <marc.jakobi@tiko.energy>
Date: Tue, 10 Oct 2023 10:12:36 +0200
Subject: fix(haskell): prevent segfault due to anchorless queries (#5502)

---
 tests/query/highlights/haskell/test.hs | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'tests')

diff --git a/tests/query/highlights/haskell/test.hs b/tests/query/highlights/haskell/test.hs
index 8c9082c1a..84d41769c 100644
--- a/tests/query/highlights/haskell/test.hs
+++ b/tests/query/highlights/haskell/test.hs
@@ -111,16 +111,13 @@ someInfix x = fromIntegral x `myAdd` floatVal
              -- ^ @variable
                  -- ^ @variable
     floatVal :: Double
-    -- ^ @variable
     floatVal = 5.5
     -- ^ @variable
             -- ^ @float
     intVal :: Int
-    -- ^ @variable
     intVal = getInt 5
     -- ^ @variable
     boolVal :: Bool
-    -- ^ @variable
     boolVal = bool False True $ 1 + 2 == 3
     -- ^ @variable
     isInt :: Either Double Int -> Bool
@@ -171,12 +168,14 @@ someIOaction = do
         -- ^ @function.call
 
 intVal :: Int
--- ^ @variable
 intVal = 5
 -- ^ @variable
 
+intFun :: Int -> Int
+intFun = 5
+-- ^ @function
+
 mbInt :: Maybe Int
--- ^ @variable
 mbInt = Just 5
 -- ^ @variable
 
-- 
cgit v1.2.3-70-g09d2