Wordlist format

1 files changed, 6 insertions, 0 deletions

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 [