From 7d2a9992f3faee63461185580bbe254f6c288a68 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Mon, 6 Mar 2006 21:27:49 +0000
Subject: more treebank options; updated history

---
 src/GF/Compile/MkConcrete.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/GF/Compile')

diff --git a/src/GF/Compile/MkConcrete.hs b/src/GF/Compile/MkConcrete.hs
index 0355cdaf0..da9fada00 100644
--- a/src/GF/Compile/MkConcrete.hs
+++ b/src/GF/Compile/MkConcrete.hs
@@ -65,7 +65,10 @@ mkCncGroups opts0 ((res,path),files) = do
   putStrLn $ "Compiling resource " ++ res
   let opts = addOptions (options [beSilent,pathList path]) opts0
   let treebank = oElem (iOpt "treebank") opts
-  egr <- appIOE $ shellStateFromFiles opts emptyShellState res
+  resf <- useIOE res $ do
+    (fp,_) <- readFileLibraryIOE gfLibraryPath res
+    return fp
+  egr <- appIOE $ shellStateFromFiles opts emptyShellState resf
   (parser,morpho) <- if treebank then do
       tb <- err (\_ -> error $ "no treebank of name" +++ path)
                 return
-- 
cgit v1.2.3