github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 10:15:55 +03:00
Code Issues Projects Releases Wiki Activity

Rewrite keysOfAlignedChildren in tacit style in hopes of finding an infinite loop.

Browse Source
This commit is contained in:
Rob Rix 2016-05-24 16:21:12 -04:00
parent 79ef67e6e3
commit 6fb9383fb1
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/AlignmentSpec.hs
View File

@ -228,9 +228,7 @@ toPrettyDiff elements = PrettyDiff sources (alignBranch id children ranges)
children = toAlignedChildren elements
keysOfAlignedChildren :: [Join These (Range, [(String, Range)])] -> [String]
keysOfAlignedChildren lines = do
line <- lines
these id id (++) (runJoin (fmap Prelude.fst . Prelude.snd <$> line))
keysOfAlignedChildren lines = lines >>= these id id (++) . runJoin . fmap (fmap Prelude.fst . Prelude.snd)
instance Arbitrary BranchElement where
arbitrary = oneof [ key >>= \ key -> Child key <$> joinTheseOf (contents key)