mirror of
https://github.com/github/semantic.git
synced 2024-11-28 10:15:55 +03:00
Ignore hints in assertEvaluatesTo.
This commit is contained in:
parent
55e573eb7f
commit
f5c8346740
@ -71,6 +71,7 @@ assertEvaluatesTo core k val = do
|
||||
|
||||
let found = Map.lookup (Name k) env >>= flip IntMap.lookup heap
|
||||
found HUnit.@?= Just val
|
||||
{-# HLINT ignore assertEvaluatesTo #-}
|
||||
|
||||
-- handles CHECK-TREE directives
|
||||
assertTreeEqual :: Term Core Name -> Term Core Name -> HUnit.Assertion
|
||||
|
Loading…
Reference in New Issue
Block a user