github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-01 09:15:01 +03:00
Code Issues Projects Releases Wiki Activity

add missing unwrap

Browse Source
This commit is contained in:
joshvera 2016-07-26 16:44:33 -04:00
parent 4bd4a93a0c
commit b5b3391786
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/DiffSummarySpec.hs
View File

@ -83,7 +83,7 @@ spec = parallel $ do
length listOfLeaves `shouldBe` length listOfDiffLeaves
isIndexedOrFixed :: Patch (Term a annotation) -> Bool
isIndexedOrFixed = any isIndexedOrFixed'
isIndexedOrFixed = any (isIndexedOrFixed' . unwrap)
isIndexedOrFixed' :: Syntax a f -> Bool
isIndexedOrFixed' syntax = case syntax of