diff options
| author | hallgren <hallgren@chalmers.se> | 2012-12-19 23:08:56 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2012-12-19 23:08:56 +0000 |
| commit | b4207d1b00853cc5eb73e52d1c831b764f5ebe75 (patch) | |
| tree | d3a8121e15281839d74a61ea62a8f42391473ed2 /src/compiler/GF/Grammar/Grammar.hs | |
| parent | 75696808a7b1da6161b674e910d37e536c723e8c (diff) | |
GF.Grammar.Lookup: new function lookupResDefLoc
It's like lookupResDef but it includes a source location in the output.
Diffstat (limited to 'src/compiler/GF/Grammar/Grammar.hs')
| -rw-r--r-- | src/compiler/GF/Grammar/Grammar.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/compiler/GF/Grammar/Grammar.hs b/src/compiler/GF/Grammar/Grammar.hs index 3a6d4c25f..218a2bd0b 100644 --- a/src/compiler/GF/Grammar/Grammar.hs +++ b/src/compiler/GF/Grammar/Grammar.hs @@ -36,7 +36,7 @@ module GF.Grammar.Grammar ( PMCFG(..), Production(..), FId, FunId, SeqId, LIndex, Sequence, Info(..), - Location(..), L(..), unLoc, + Location(..), L(..), unLoc, noLoc, Type, Cat, Fun, @@ -372,6 +372,8 @@ instance Functor L where unLoc :: L a -> a unLoc (L _ x) = x +noLoc = L NoLoc + type Type = Term type Cat = QIdent type Fun = QIdent |