github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 21:16:12 +03:00
Code Issues Projects Releases Wiki Activity

Define classify in terms of maybeLast.

Browse Source
This commit is contained in:
Rob Rix 2015-12-21 13:15:37 -05:00
parent 2c703b30e4
commit 568df9937b
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

@ -289,7 +289,7 @@ zipWithMaybe f la lb = take len $ zipWith f la' lb'
lb' = (Just <$> lb) ++ repeat Nothing
classify :: Set.Set Category -> Maybe ClassName
classify = foldr (const . Just . ("category-" ++)) Nothing
classify categories = ("category-" ++) <$> maybeLast categories
actualLines :: String -> [String]
actualLines "" = [""]