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

Compute a pair of Sources from a list of child lines.

Browse Source
This commit is contained in:
Rob Rix 2016-05-20 21:50:41 -04:00
parent 048c9d34c2
commit 6eabdd06eb
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
test/AlignmentSpec.hs
View File

@ -190,6 +190,9 @@ data Child = Child
toSource :: [Child] -> Source.Source Char toSource :: [Child] -> Source.Source Char
toSource = Source.fromList . concatMap show toSource = Source.fromList . concatMap show
toSources :: [Join These Child] -> Both (Source.Source Char)
toSources = fmap toSource . toChildLists
toChildLists :: [Join These Child] -> Both [Child] toChildLists :: [Join These Child] -> Both [Child]
toChildLists = foldMap (modifyJoin (fromThese [] []) . fmap (:[])) toChildLists = foldMap (modifyJoin (fromThese [] []) . fmap (:[]))