"Committed_by_peb"

src/GF/Data/Str.hs

@@ -102,6 +102,7 @@ isZeroTok t = case t of
 strTok :: Ss -> [(Ss,[String])] -> Str
 strTok ds vs = Str [TN ds vs]
 
+prStr :: Str -> String
 prStr = prQuotedString . sstr
 
 plusStr :: Str -> Str -> Str

src/GF/Data/Trie2.hs

@@ -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