From b4207d1b00853cc5eb73e52d1c831b764f5ebe75 Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Wed, 19 Dec 2012 23:08:56 +0000
Subject: GF.Grammar.Lookup: new function lookupResDefLoc

It's like lookupResDef but it includes a source location in the output.
---
 src/compiler/GF/Grammar/Grammar.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/compiler/GF/Grammar/Grammar.hs')

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
-- 
cgit v1.2.3