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

Add a function to align branch elements into their lines.

Browse Source
This commit is contained in:
Rob Rix 2016-05-20 22:17:39 -04:00
parent 30bfae37aa
commit 24af4c4af5
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/AlignmentSpec.hs
View File

@ -185,6 +185,10 @@ data BranchElement
= Child String (Join These String {- newlines or asterisks -}) = Child String (Join These String {- newlines or asterisks -})
| Margin (Join These String {- newlines or hyphens -}) | Margin (Join These String {- newlines or hyphens -})
alignBranchElement :: BranchElement -> [BranchElement]
alignBranchElement (Child key contents) = Child key <$> traverse lines contents
alignBranchElement (Margin contents) = Margin <$> traverse lines contents
toSource :: [BranchElement] -> Source.Source Char toSource :: [BranchElement] -> Source.Source Char
toSource = Source.fromList . concatMap show toSource = Source.fromList . concatMap show