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

The line isn’t gonna get any closeder.

Browse Source
This commit is contained in:
Rob Rix 2016-03-10 17:40:01 -05:00
parent 736e7b95c7
commit 186337fd4d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Line.hs
View File

@ -46,7 +46,7 @@ maybeFirst = foldr (const . Just) Nothing
-- | Merge or prepend lines based on whether the left line is open or closed.
coalesceLines :: Line a -> Line a -> [Line a]
coalesceLines line nextLine | isOpen line = [line `mappend` nextLine]
| otherwise = [Closed (unLine line), nextLine]
| otherwise = [line, nextLine]
instance Applicative Line where
pure = Line . pure