From b0dde31f00a5bc4df496d15008e6c3d525925d3a Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Fri, 26 Sep 2008 12:57:20 +0000
Subject: Added semantic interpretation tag printing to the *bnf grammar
 printers.

---
 src/GF/Speech/RegExp.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/GF/Speech/RegExp.hs')

diff --git a/src/GF/Speech/RegExp.hs b/src/GF/Speech/RegExp.hs
index 902569629..2592b3d57 100644
--- a/src/GF/Speech/RegExp.hs
+++ b/src/GF/Speech/RegExp.hs
@@ -133,6 +133,7 @@ symbolsRE (RESymbol x) = [x]
 prRE :: (a -> String) -> RE a -> String
 prRE = prRE' 0
 
+prRE' :: Int -> (a -> String) -> RE a -> String
 prRE' _ _ (REUnion []) = "<NULL>"
 prRE' n f (REUnion xs) = p n 1 (concat (intersperse " | " (map (prRE' 1 f) xs)))
 prRE' n f (REConcat xs) = p n 2 (unwords (map (prRE' 2 f) xs))
-- 
cgit v1.2.3