Delete ResultIcon.

app/Icons.hs

@@ -9,7 +9,6 @@ module Icons
     iconToDiagram,
     textBox,
     multilineComment,
-    resultIcon,
     guardIcon,
     caseIcon,
     defaultLineWidth,
@@ -44,7 +43,6 @@ iconToDiagram :: SpecialBackend b n => Icon -> TransformableDia b n
 iconToDiagram (ApplyAIcon n) = identDiaFunc $ applyADia n
 iconToDiagram (ComposeIcon n) = identDiaFunc $ composeDia n
 iconToDiagram (PAppIcon n str) = pAppDia n str
-iconToDiagram ResultIcon = identDiaFunc resultIcon
 iconToDiagram (TextBoxIcon s) = textBox s
 iconToDiagram (BindTextBoxIcon s) = identDiaFunc $ bindTextBox s
 iconToDiagram (GuardIcon n) = identDiaFunc $ guardIcon n
@@ -99,7 +97,6 @@ getPortAngles icon port maybeNodeName = case icon of
   ApplyAIcon _ -> applyPortAngles port
   ComposeIcon _ -> applyPortAngles port
   PAppIcon _ _ -> applyPortAngles port
-  ResultIcon -> []
   TextBoxIcon _ -> []
   BindTextBoxIcon _ -> []
   GuardIcon _ -> guardPortAngles port

app/Types.hs

@@ -36,7 +36,7 @@ import Data.Typeable(Typeable)
 -- The TextBoxIcon's data is the text that appears in the text box.
 -- The LambdaRegionIcon's data is the number of lambda ports, and the name of it's
 -- subdrawing.
-data Icon = ResultIcon | TextBoxIcon String | GuardIcon Int
+data Icon = TextBoxIcon String | GuardIcon Int
   | FlatLambdaIcon Int | ApplyAIcon Int | ComposeIcon Int
   | PAppIcon Int String | CaseIcon Int | CaseResultIcon
   | BindTextBoxIcon String

test/VisualRenderingTests.hs

@@ -23,7 +23,7 @@ drawing0 = Drawing d0Icons d0Edges where
   d0Icons =
     [(d0A, ApplyAIcon 1),
      (d0B, ApplyAIcon 1),
-     (d0Res, ResultIcon),
+     (d0Res, CaseResultIcon),
      (d0Foo, TextBoxIcon "foo"),
      (d0Bar, TextBoxIcon "bar")
     ]
@@ -57,7 +57,7 @@ fact0Drawing = Drawing fact0Icons fact0Edges where
       (fRecurAp, ApplyAIcon 1),
       (fTimesAp, ApplyAIcon 2),
       -- (fArg, BranchIcon),
-      (fRes, ResultIcon)
+      (fRes, CaseResultIcon)
     ]
   fact0Edges = [
     iconToIntPort fEq0 fEq0Ap 0,
@@ -86,7 +86,7 @@ fact1Icons =
   (fRecurAp, ApplyAIcon 1),
   (fTimesAp, ApplyAIcon 2),
   -- (fArg, BranchIcon),
-  (fRes, ResultIcon)
+  (fRes, CaseResultIcon)
   ]
 
 fact1Edges :: [Edge]
@@ -119,7 +119,7 @@ fact2Icons =
   (fRecurAp, ApplyAIcon 1),
   (fTimesAp, ApplyAIcon 2),
   --(fArg, BranchIcon),
-  (fRes, ResultIcon)
+  (fRes, CaseResultIcon)
   ]
 
 fact2Edges :: [Edge]