diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/compiler/GF/Command/Commands.hs | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/src/compiler/GF/Command/Commands.hs b/src/compiler/GF/Command/Commands.hs index 00fc8305b..92590a403 100644 --- a/src/compiler/GF/Command/Commands.hs +++ b/src/compiler/GF/Command/Commands.hs @@ -153,11 +153,11 @@ allCommands env@(pgf, mos) = Map.fromList [ let grph = if null es then [] else graphvizAlignment pgf (head es) if isFlag "view" opts || isFlag "format" opts then do let file s = "_grph." ++ s - let view = optViewGraph opts ++ " " + let view = optViewGraph opts let format = optViewFormat opts writeFile (file "dot") grph - system $ "dot -T" ++ format ++ " " ++ file "dot" ++ " > " ++ file format ++ - " ; " ++ view ++ file format + system $ "dot -T" ++ format ++ " " ++ file "dot" ++ " > " ++ file format + system $ view ++ " " ++ file format return void else return $ fromString grph, examples = [ @@ -735,11 +735,11 @@ allCommands env@(pgf, mos) = Map.fromList [ let grphs = unlines $ map (graphvizDependencyTree outp debug mlab Nothing pgf lang) es if isFlag "view" opts || isFlag "format" opts then do let file s = "_grphd." ++ s - let view = optViewGraph opts ++ " " + let view = optViewGraph opts let format = optViewFormat opts writeFile (file "dot") grphs - system $ "dot -T" ++ format ++ " " ++ file "dot" ++ " > " ++ file format ++ - " ; " ++ view ++ file format + system $ "dot -T" ++ format ++ " " ++ file "dot" ++ " > " ++ file format + system $ view ++ " " ++ file format return void else return $ fromString grphs, examples = [ @@ -776,11 +776,11 @@ allCommands env@(pgf, mos) = Map.fromList [ let grph = if null es then [] else graphvizParseTree pgf lang (head es) if isFlag "view" opts || isFlag "format" opts then do let file s = "_grph." ++ s - let view = optViewGraph opts ++ " " + let view = optViewGraph opts let format = optViewFormat opts writeFile (file "dot") grph - system $ "dot -T" ++ format ++ " " ++ file "dot" ++ " > " ++ file format ++ - " ; " ++ view ++ file format + system $ "dot -T" ++ format ++ " " ++ file "dot" ++ " > " ++ file format + system $ view ++ " " ++ file format return void else return $ fromString grph, examples = [ @@ -816,11 +816,11 @@ allCommands env@(pgf, mos) = Map.fromList [ let grph = unlines (map (graphvizAbstractTree pgf (funs,cats)) es) -- True=digraph if isFlag "view" opts || isFlag "format" opts then do let file s = "_grph." ++ s - let view = optViewGraph opts ++ " " + let view = optViewGraph opts let format = optViewFormat opts writeFile (file "dot") grph - system $ "dot -T" ++ format ++ " " ++ file "dot" ++ " > " ++ file format ++ - " ; " ++ view ++ file format + system $ "dot -T" ++ format ++ " " ++ file "dot" ++ " > " ++ file format + system $ view ++ " " ++ file format return void else return $ fromString grph, examples = [ |