Add GNUmakefile rule : tag.

[haskell/symantic.git] / symantic-grammar / Language / Symantic / Grammar / Regular.hs

diff --git a/symantic-grammar/Language/Symantic/Grammar/Regular.hs b/symantic-grammar/Language/Symantic/Grammar/Regular.hs
index dc9d724879020348be20ccfcf2d7200a01ef1e94..20b410ab40d636472485e2801d3209334ca38d86 100644 (file)
--- a/symantic-grammar/Language/Symantic/Grammar/Regular.hs
+++ b/symantic-grammar/Language/Symantic/Grammar/Regular.hs
@@ -66,7 +66,7 @@ class (Functor g, Alter g) => Gram_RegR g where
 instance Gram_RegR EBNF where
        Terminal f .*> Reg x = Reg $ f <*> x
        manyR (Terminal (EBNF g)) = Reg $ EBNF $ \rm _po -> "{" <> g rm (op, L) <> "}"  where op = infixN0
-       someR (Terminal (EBNF g)) = Reg $ EBNF $ \rm _po -> "{" <> g rm (op, L) <> "}-"  where op = infixN0
+       someR (Terminal (EBNF g)) = Reg $ EBNF $ \rm _po -> "{" <> g rm (op, L) <> "}-" where op = infixN0
 
 -- ** Class 'Gram_RegL'
 -- | Symantics for left regular grammars.
@@ -81,4 +81,4 @@ class (Functor g, Alter g) => Gram_RegL g where
 instance Gram_RegL EBNF where
        Reg f <*. Terminal x = Reg $ f <*> x
        manyL (Terminal (EBNF g)) = Reg $ EBNF $ \rm _po -> "{" <> g rm (op, L) <> "}"  where op = infixN0
-       someL (Terminal (EBNF g)) = Reg $ EBNF $ \rm _po -> "{" <> g rm (op, L) <> "}-"  where op = infixN0
+       someL (Terminal (EBNF g)) = Reg $ EBNF $ \rm _po -> "{" <> g rm (op, L) <> "}-" where op = infixN0