mirror of
https://github.com/github/semantic.git
synced 2024-12-24 07:25:44 +03:00
c2a3608154
I discovered a test file in tree-sitter-haskell I overlooked while assigning semantic.
53 lines
558 B
Haskell
53 lines
558 B
Haskell
f = let y = x
|
|
x = let g = 1
|
|
in g
|
|
in y
|
|
|
|
f = a
|
|
where a = b
|
|
b = 1
|
|
|
|
f = a
|
|
where a = b
|
|
b = 1
|
|
|
|
f = foo
|
|
where a = b
|
|
where c = d
|
|
e = f
|
|
x = w
|
|
|
|
g = do c
|
|
a
|
|
do b
|
|
e
|
|
do g
|
|
g
|
|
h
|
|
i
|
|
|
|
a = do
|
|
b
|
|
where
|
|
c = d
|
|
|
|
a = do
|
|
b
|
|
where
|
|
c = d
|
|
|
|
a = do
|
|
b
|
|
where
|
|
c = d
|
|
|
|
class Foo bar where
|
|
fooVariables :: bar -> [Baz]
|
|
{-
|
|
-}
|
|
class Foo1 bar where
|
|
liftFoo = foldMap
|
|
|
|
freeFoo bar = case freeFoo bar of
|
|
[n] -> Right n
|