From 830f7c14bc0a7c9a22ec73759e315087a658f8ee Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 28 Apr 2005 15:42:47 +0000
Subject: library adjustments, error message clean-up

---
 src/GF/Canon/Look.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/GF/Canon')

diff --git a/src/GF/Canon/Look.hs b/src/GF/Canon/Look.hs
index 410010b53..10e4721f6 100644
--- a/src/GF/Canon/Look.hs
+++ b/src/GF/Canon/Look.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/04/21 16:21:25 $ 
--- > CVS $Author: bringert $
--- > CVS $Revision: 1.12 $
+-- > CVS $Date: 2005/04/28 16:42:48 $ 
+-- > CVS $Author: aarne $
+-- > CVS $Revision: 1.13 $
 --
 -- lookup in GFC. AR 2003
 -----------------------------------------------------------------------------
@@ -46,7 +46,7 @@ lookupCncInfo gr f@(CIQ m c) = do
   mt <- M.lookupModule gr m
   case mt of
     M.ModMod a -> errIn ("module" +++ prt m) $ 
-                  lookupTree prt c $ M.jments a 
+                  lookupIdent c $ M.jments a 
     _ -> prtBad "not concrete module" m
 
 lookupLin :: CanonGrammar -> CIdent -> Err Term
@@ -77,7 +77,7 @@ lookupResInfo :: CanonGrammar -> CIdent -> Err Info
 lookupResInfo gr f@(CIQ m c) = do
   mt <- M.lookupModule gr m
   case mt of
-    M.ModMod a -> lookupTree prt c $ M.jments a 
+    M.ModMod a -> lookupIdent c $ M.jments a 
     _ -> prtBad "not resource module" m
 
 lookupGlobal :: CanonGrammar -> CIdent -> Err Term
-- 
cgit v1.2.3