GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

remove the dead code left behind by Peter Ljunglöf in VisualizeTree

Browse Source
This commit is contained in:
kr.angelov
2013-04-19 11:13:07 +00:00
parent b4374a6a52
commit d6d4ae3a6b
2 changed files with 4 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/compiler/GF/Command/Commands.hs
View File

@@ -988,11 +988,9 @@ allCommands = Map.fromList [
nodeEdgeStyle = valStrOpts "nodeedgestyle" "solid" opts,
leafEdgeStyle = valStrOpts "leafedgestyle" "dashed" opts
}
let grph = if null es then []
else if isOpt "old" opts then
graphvizParseTreeOld pgf lang (head es)
else
graphvizParseTree pgf lang gvOptions (head es)
let grph = if null es
then []
else graphvizParseTree pgf lang gvOptions (head es)
if isFlag "view" opts || isFlag "format" opts then do
let file s = "_grph." ++ s
let view = optViewGraph opts