mirror of
https://github.com/rgleichman/glance.git
synced 2024-08-17 10:50:24 +03:00
Delete ResultIcon.
This commit is contained in:
parent
5efcc62b96
commit
fa67d61e84
@ -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
|
||||
|
@ -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
|
||||
|
@ -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]
|
||||
|
Loading…
Reference in New Issue
Block a user