From 2905d5552c1530185609fe892e0e9e2c4994ca1d Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Fri, 5 Oct 2007 13:38:10 +0000
Subject: removed Canon/GFCC

---
 src/GF/Canon/GFCC/AbsGFCC.hs | 70 --------------------------------------------
 1 file changed, 70 deletions(-)
 delete mode 100644 src/GF/Canon/GFCC/AbsGFCC.hs

(limited to 'src/GF/Canon/GFCC/AbsGFCC.hs')

diff --git a/src/GF/Canon/GFCC/AbsGFCC.hs b/src/GF/Canon/GFCC/AbsGFCC.hs
deleted file mode 100644
index aab74f7fb..000000000
--- a/src/GF/Canon/GFCC/AbsGFCC.hs
+++ /dev/null
@@ -1,70 +0,0 @@
-module GF.Canon.GFCC.AbsGFCC where
-
--- Haskell module generated by the BNF converter
-
-newtype CId = CId String deriving (Eq,Ord,Show)
-data Grammar =
-   Grm Header Abstract [Concrete]
-  deriving (Eq,Ord,Show)
-
-data Header =
-   Hdr CId [CId]
-  deriving (Eq,Ord,Show)
-
-data Abstract =
-   Abs [AbsDef]
-  deriving (Eq,Ord,Show)
-
-data Concrete =
-   Cnc CId [CncDef]
-  deriving (Eq,Ord,Show)
-
-data AbsDef =
-   Fun CId Type Exp
-  deriving (Eq,Ord,Show)
-
-data CncDef =
-   Lin CId Term
-  deriving (Eq,Ord,Show)
-
-data Type =
-   Typ [CId] CId
-  deriving (Eq,Ord,Show)
-
-data Exp =
-   Tr Atom [Exp]
-  deriving (Eq,Ord,Show)
-
-data Atom =
-   AC CId
- | AS String
- | AI Integer
- | AF Double
- | AM
-  deriving (Eq,Ord,Show)
-
-data Term =
-   R [Term]
- | P Term Term
- | S [Term]
- | K Tokn
- | V Int
- | C Int
- | F CId
- | FV [Term]
- | W String Term
- | RP Term Term
- | TM
- | L CId Term
- | BV CId
-  deriving (Eq,Ord,Show)
-
-data Tokn =
-   KS String
- | KP [String] [Variant]
-  deriving (Eq,Ord,Show)
-
-data Variant =
-   Var [String] [String]
-  deriving (Eq,Ord,Show)
-
-- 
cgit v1.2.3