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

Eta-reduce the openLine definition.

Browse Source
This commit is contained in:
Rob Rix 2015-12-21 09:54:03 -05:00
parent b8e843a505
commit a9c744a54c
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/Split.hs
View File

@ -277,7 +277,7 @@ openElement (Div _ elements) = openElement =<< maybeLast elements
openElement h = Just h
openLine :: [Line HTML] -> Maybe (Line HTML)
openLine lines = openLineBy openElement lines
openLine = openLineBy openElement
openLineBy :: (a -> Maybe a) -> [Line a] -> Maybe (Line a)
openLineBy _ [] = Nothing