msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

"Committed_by_peb"

Browse Source
This commit is contained in:
peb
2005-02-17 09:12:32 +00:00
parent 55f889eda8
commit 359f1b8ea2
8 changed files with 62 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -30,6 +30,8 @@ newtype TrieT a b = TrieT ([(a,TrieT a b)],[b])
newtype Trie a b = Trie (Map a (Trie a b), [b])
emptyTrieT = TrieT ([],[])
emptyTrie :: Trie a b
emptyTrie = Trie (empty,[])
optimize :: (Ord a,Eq b) => TrieT a b -> Trie a b