fix(haskell): prevent segfault due to anchorless queries (#5502)

This commit is contained in:
Marc Jakobi 2023-10-10 10:12:36 +02:00 committed by GitHub
parent 34e6ace726
commit 0eb1a0ad1c
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 31 additions and 36 deletions

View file

@ -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