diff options
| author | bjorn <bjorn@bringert.net> | 2008-09-26 12:57:20 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-09-26 12:57:20 +0000 |
| commit | b0dde31f00a5bc4df496d15008e6c3d525925d3a (patch) | |
| tree | f53def4dce9622cc6bf3d4cc704ee8e6ca4c3b80 /src/GF/Speech/RegExp.hs | |
| parent | 2f3b7d1c5560aabb19db149c2a8e333931884d30 (diff) | |
Added semantic interpretation tag printing to the *bnf grammar printers.
Diffstat (limited to 'src/GF/Speech/RegExp.hs')
| -rw-r--r-- | src/GF/Speech/RegExp.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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)) |