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

Stub in a type representing the elements of branches.

Browse Source
This commit is contained in:
Rob Rix 2016-05-20 21:50:52 -04:00
parent 6eabdd06eb
commit 3aaa9f79ca
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

@ -187,6 +187,10 @@ data Child = Child
, childMargin :: String
}
data BranchElement
= Child' String (Join These String {- newlines or asterisks -})
| Margin (Join These String {- newlines or hyphens -})
toSource :: [Child] -> Source.Source Char
toSource = Source.fromList . concatMap show