1
1
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:
Rob Rix 2020-01-06 16:37:49 -05:00
parent 55e573eb7f
commit f5c8346740
No known key found for this signature in database
GPG Key ID: 2BE643E01DC032AE

View File

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