From 98b24d0e33e2cb90244773f8ad7d3c4f3f73ecd0 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 8 Feb 2006 10:18:00 +0000 Subject: command tb for creating treebanks --- src/GF/Compile/ShellState.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GF/Compile/ShellState.hs') diff --git a/src/GF/Compile/ShellState.hs b/src/GF/Compile/ShellState.hs index 1c1d8556e..6c281a926 100644 --- a/src/GF/Compile/ShellState.hs +++ b/src/GF/Compile/ShellState.hs @@ -405,7 +405,7 @@ allActiveGrammars :: ShellState -> [StateGrammar] globalOptions = gloptions --allLanguages = map (fst . fst) . concretes -allLanguages = M.allConcreteModules . canModules +allLanguages = map (snd . fst) . actualConcretes allTransfers = map fst . transfers allCategories = map fst . allCatsOf . canModules -- cgit v1.2.3