diff options
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)) |