diff options
| author | Inari Listenmaa <inari.listenmaa@gmail.com> | 2021-07-06 09:16:52 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-07-06 09:16:52 +0200 |
| commit | 4e8859aa752c65e8445cd54cb6ca80089492fd31 (patch) | |
| tree | 644c80d65bc8b70b79d76776f8f786f5753b0d0d /src/compiler/GF/Grammar/Canonical.hs | |
| parent | 09d772046e78f9bab6c8c75035b812985d18d0f7 (diff) | |
| parent | a27b07542d731ee0287383feb7a97d5d4708b85e (diff) | |
Merge pull request #118 from GrammaticalFramework/canonical
Fixes to canonical compilation
Diffstat (limited to 'src/compiler/GF/Grammar/Canonical.hs')
| -rw-r--r-- | src/compiler/GF/Grammar/Canonical.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/compiler/GF/Grammar/Canonical.hs b/src/compiler/GF/Grammar/Canonical.hs index 0df3236ff..80e9f5e7b 100644 --- a/src/compiler/GF/Grammar/Canonical.hs +++ b/src/compiler/GF/Grammar/Canonical.hs @@ -11,6 +11,7 @@ module GF.Grammar.Canonical where import Prelude hiding ((<>)) import GF.Text.Pretty +import GF.Infra.Ident (RawIdent) -- | A Complete grammar data Grammar = Grammar Abstract [Concrete] deriving Show @@ -126,7 +127,7 @@ data FlagValue = Str String | Int Int | Flt Double deriving Show -- *** Identifiers -type Id = String +type Id = RawIdent data QualId = Qual ModId Id | Unqual Id deriving (Eq,Ord,Show) -------------------------------------------------------------------------------- |