Bump versions.

[haskell/symantic.git] / symantic / Language / Symantic / Compiling / Grammar.hs

diff --git a/symantic/Language/Symantic/Compiling/Grammar.hs b/symantic/Language/Symantic/Compiling/Grammar.hs
index 442faa3d5943a0f3df12ab028595575f48c59659..bdad63ccb68687a0a80f874b59105c0f47ca7690 100644 (file)
--- a/symantic/Language/Symantic/Compiling/Grammar.hs
+++ b/symantic/Language/Symantic/Compiling/Grammar.hs
@@ -127,8 +127,7 @@ class
  , Gram_Name g
  , Gram_Type src g
  ) => Gram_Term_Type src g where
-       g_term_abst_decl
-        :: CF g (NameTe, AST_Type src)
+       g_term_abst_decl :: CF g (NameTe, AST_Type src)
        g_term_abst_decl = rule "term_abst_decl" $
                parens $ (,)
                 <$> g_term_name
@@ -187,7 +186,7 @@ class
                g_infix   :: CF g (Infix,  AST_Term src ss -> AST_Term src ss -> AST_Term src ss)
                g_postfix :: CF g (Unifix, AST_Term src ss -> AST_Term src ss)
                g_prefix  = g_catch $ g_source $ g_get_after $ op_prefix  <$> g_prefix_op
-               g_infix   = g_catch $ g_source $ g_get_after $ op_infix <$> g_infix_op
+               g_infix   = g_catch $ g_source $ g_get_after $ op_infix   <$> g_infix_op
                g_postfix = g_catch $ g_source $ g_get_after $ op_postfix <$> g_postfix_op
                op_infix
                 :: Mod NameTe