github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-19 04:41:47 +03:00
Code Issues Projects Releases Wiki Activity

Classes are prefixed with category-.

Browse Source
This commit is contained in:
Rob Rix 2015-12-07 12:15:58 -05:00
parent 96a87ef716
commit b172f3c06c
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

@ -175,7 +175,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) Nothing
classify = foldr (const . Just . ("category-" ++)) Nothing
actualLines :: String -> [String]
actualLines "" = [""]