From 6802bcca2c9a1e7d3e079b308844ec6422a2af48 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 23 Jun 2004 11:57:17 +0000
Subject: some fixes for Shae

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

(limited to 'src/GF/Compile/ShellState.hs')

diff --git a/src/GF/Compile/ShellState.hs b/src/GF/Compile/ShellState.hs
index 2b602ecca..a306902d9 100644
--- a/src/GF/Compile/ShellState.hs
+++ b/src/GF/Compile/ShellState.hs
@@ -67,6 +67,8 @@ emptyShellState = ShSt {
   statistics = []
   }
 
+optInitShellState os = addGlobalOptions os emptyShellState
+
 type Language = Ident
 language = identC
 prLanguage = prIdent
@@ -225,7 +227,7 @@ greatestAbstract gr = case allAbstracts gr of
 
 -- all resource modules
 allResources :: G.SourceGrammar -> [Ident]
-allResources gr = [i | (i,M.ModMod m) <- M.modules gr, M.mtype m == M.MTResource]
+allResources gr = [i | (i,M.ModMod m) <- M.modules gr, M.isModRes m]
 
 
 -- the greatest resource in dependency order
-- 
cgit v1.2.3