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

Add a convenience to construct Source Char.

Browse Source
This commit is contained in:
Rob Rix 2016-03-21 18:54:18 -04:00
parent d3a3b68752
commit 1f1be15a99
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

@ -66,5 +66,8 @@ spec = parallel $ do
patchWithBoth (Delete ()) = Delete . fst
patchWithBoth (Replace () ()) = runBothWith Replace
source :: String -> Source Char
source = Source.fromList
info :: Int -> Int -> Info
info = ((`Info` mempty) .) . Range