From 7fa31cc6447718f166b1963f79f9e58ac25a88c9 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Thu, 18 May 2006 14:59:58 +0000
Subject: Wordlist format

---
 src/GF.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/GF.hs')

diff --git a/src/GF.hs b/src/GF.hs
index 478a40d3f..8cbc45f68 100644
--- a/src/GF.hs
+++ b/src/GF.hs
@@ -22,6 +22,7 @@ import GF.API.IOGrammar
 import GF.Compile.ShellState
 import GF.Compile.Compile
 import GF.Compile.MkConcrete
+import GF.Compile.Wordlist
 import GF.Shell
 import GF.Shell.SubShell
 import GF.Shell.ShellCommands
@@ -91,6 +92,11 @@ main = do
         es <- liftM (nub . concat) $ mapM (getGFEFiles os) fs
         mkConcretes os es
         doGF (removeOption fromExamples os) fs
+  -- preprocessing gfwl
+    else if (length fs == 1 && fileSuffix (head fs) == "gfwl")
+    then do
+      fs' <- mkWordlist (head fs)
+      doGF os fs'
     else doGF os fs
 
 helpMsg = unlines [
-- 
cgit v1.2.3