rhi/idris2-tap
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Wiki Activity

ignore notes when deciding to show a group

Browse source 
fix #1
This commit is contained in:
rhiannon morris 2023-02-11 23:35:15 +01:00
parent 45674394e8
commit 8428d0dd06
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
TAP.idr
View file

@ -332,11 +332,10 @@ mutual
filterMatch1 : String -> Test -> Maybe Test filterMatch1 : String -> Test -> Maybe Test
filterMatch1 pat test@(One base) = filterMatch1 pat test@(One base) =
guard (pat `isInfixOf` base.label) $> test guard (pat `isInfixOf` base.label) $> test
filterMatch1 pat all@(Group label tests) = filterMatch1 pat whole@(Group label tests) =
if pat `isInfixOf` label then Just all else if pat `isInfixOf` label then Just whole else
case filterMatch (Just pat) tests of let res = filterMatch (Just pat) tests in
[] => Nothing guard (any isRealTest res) $> Group label res
res => Just $ Group label res
filterMatch1 pat note@(Note _) = Just note filterMatch1 pat note@(Note _) = Just note