From 4e2044ab99a2ce6dcff86989f1e3e565ba5ac9e0 Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Fri, 19 Apr 2013 11:13:07 +0000 Subject: remove the dead code left behind by Peter Ljunglöf in VisualizeTree MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/compiler/GF/Command/Commands.hs | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'src/compiler') diff --git a/src/compiler/GF/Command/Commands.hs b/src/compiler/GF/Command/Commands.hs index 802b36a81..7311443f6 100644 --- a/src/compiler/GF/Command/Commands.hs +++ b/src/compiler/GF/Command/Commands.hs @@ -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 -- cgit v1.2.3