From 15f94710f0403c760ed4ec1a8328c89400c4d94c Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 4 Dec 2003 12:08:29 +0000
Subject: Added French for new API. Started alpha conv. Fixed bugs.

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

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

diff --git a/src/GF/Compile/ShellState.hs b/src/GF/Compile/ShellState.hs
index 138630c3a..27d88f6fb 100644
--- a/src/GF/Compile/ShellState.hs
+++ b/src/GF/Compile/ShellState.hs
@@ -295,10 +295,14 @@ stateAbstract = abstractOf . stateGrammarST
 maybeStateAbstract (ShSt (ma,_,_)) = ma
 hasStateAbstract = maybe False (const True) . maybeStateAbstract
 abstractOfState = maybe emptyAbstractST id . maybeStateAbstract
+-}
 
 stateIsWord sg = isKnownWord (stateMorpho sg)
 
 
+
+{-
+
 -- getting info on a language
 existLang :: ShellState -> Language -> Bool
 existLang st lang = elem lang (allLanguages st)
-- 
cgit v1.2.3