From 3ff765620c9df08212275b5a3f207fd939a60922 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Fri, 3 Mar 2006 20:51:03 +0000
Subject: distinguished uni and multi treebanks

---
 src/GF/Data/Operations.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/GF/Data')

diff --git a/src/GF/Data/Operations.hs b/src/GF/Data/Operations.hs
index f5434486f..ac1ec85bb 100644
--- a/src/GF/Data/Operations.hs
+++ b/src/GF/Data/Operations.hs
@@ -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]
-- 
cgit v1.2.3