mirror of
https://github.com/rgleichman/glance.git
synced 2024-09-11 15:05:41 +03:00
remove unnecassary line
This commit is contained in:
parent
30a0ab87d2
commit
e374c7ab4e
@ -61,8 +61,7 @@ evalApp exp1 exp2 c = do -- State Monad
|
||||
argumentPort = nameAndPort applyIconName 1
|
||||
(argGr, argEdges, argBoundVars) = getGraph argumentPort argVal
|
||||
newGraph = IconGraph icons (funEdges <> argEdges) mempty (funBoundVars <> argBoundVars)
|
||||
applyIconString = "app0" ++ show newId
|
||||
applyIconName = DIA.toName applyIconString
|
||||
applyIconName = DIA.toName $ "app0" ++ show newId
|
||||
icons = [(applyIconName, Apply0Icon)]
|
||||
pure $ Right (newGraph <> funGr <> argGr, nameAndPort applyIconName 2)
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user