From e37e6df7758c3bbb2757be1717636e98169dcb1c Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Mon, 22 Nov 2010 22:41:29 +0000
Subject: [PATCH] lang flag in align_words sets the list of languages

---
 src/compiler/GF/Command/Commands.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/compiler/GF/Command/Commands.hs b/src/compiler/GF/Command/Commands.hs
index b4ab5ff4a..48f9b4f49 100644
--- a/src/compiler/GF/Command/Commands.hs
+++ b/src/compiler/GF/Command/Commands.hs
@@ -151,7 +151,8 @@ allCommands env@(pgf, mos) = Map.fromList [
        "flag -format."
        ],
      exec = \opts es -> do
-         let grph = if null es then [] else graphvizAlignment pgf (languages pgf) (head es)
+         let langs = optLangs opts
+         let grph = if null es then [] else graphvizAlignment pgf langs (head es)
          if isFlag "view" opts || isFlag "format" opts then do
            let file s = "_grph." ++ s
            let view = optViewGraph opts
@@ -169,7 +170,8 @@ allCommands env@(pgf, mos) = Map.fromList [
        ],
      flags = [
        ("format","format of the visualization file (default \"png\")"),
-       ("view","program to open the resulting file (default \"open\")")
+       ("lang", "alignments for this list of languages (default: all)"),
+       ("view",  "program to open the resulting file (default \"open\")")
        ] 
     }),
  ("ga", emptyCommandInfo {