From 359f1b8ea2032fbf5b8ad7ad6c88e922fa83470b Mon Sep 17 00:00:00 2001
From: peb <unknown>
Date: Thu, 17 Feb 2005 09:12:32 +0000
Subject: "Committed_by_peb"

---
 src/GF/Data/Str.hs   | 1 +
 src/GF/Data/Trie2.hs | 2 ++
 2 files changed, 3 insertions(+)

(limited to 'src/GF/Data')

diff --git a/src/GF/Data/Str.hs b/src/GF/Data/Str.hs
index 138c39f26..743d9edc9 100644
--- a/src/GF/Data/Str.hs
+++ b/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
diff --git a/src/GF/Data/Trie2.hs b/src/GF/Data/Trie2.hs
index 5f2d3de0a..08a6531be 100644
--- a/src/GF/Data/Trie2.hs
+++ b/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
-- 
cgit v1.2.3