Build cfgm files using the nondeterministic conversion. Allow coercions in cfgm rule functions and remove the name.

1 files changed, 6 insertions, 6 deletions

diff --git a/src/GF/CFGM/AbsCFG.hs b/src/GF/CFGM/AbsCFG.hs
index d66289ae9..c605ce212 100644
--- a/src/GF/CFGM/AbsCFG.hs
+++ b/src/GF/CFGM/AbsCFG.hs
@@ -1,4 +1,3 @@
-
 module AbsCFG where
 
 -- Haskell module generated by the BNF converter
@@ -18,7 +17,12 @@ data Flag =
   deriving (Eq,Ord,Show)
 
 data Rule =
-   Rule Ident Name Profile Category [Symbol]
+   Rule Fun Profile Category [Symbol]
+  deriving (Eq,Ord,Show)
+
+data Fun =
+   Cons Ident
+ | Coerce
   deriving (Eq,Ord,Show)
 
 data Profile =
@@ -34,10 +38,6 @@ data Symbol =
  | TermS String
   deriving (Eq,Ord,Show)
 
-data Name =
-   Name SingleQuoteString
-  deriving (Eq,Ord,Show)
-
 data Category =
    Category SingleQuoteString
   deriving (Eq,Ord,Show)