GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 19:22:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

distinguished uni and multi treebanks

Browse Source
This commit is contained in:
aarne
2006-03-03 20:51:03 +00:00
parent 979bb39632
commit 0eb9f74977
5 changed files with 96 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Data/Operations.hs
View File

@@ -585,7 +585,7 @@ removeAssoc :: Eq a => a -> [(a,b)] -> [(a,b)]
removeAssoc a = filter ((/=a) . fst)
-- | chop into separator-separated parts
chunks :: String -> [String] -> [[String]]
chunks :: Eq a => a -> [a] -> [[a]]
chunks sep ws = case span (/= sep) ws of
(a,_:b) -> a : bs where bs = chunks sep b
(a, []) -> if null a then [] else [a]