rgleichman/glance
1
1
Fork 0
mirror of https://github.com/rgleichman/glance.git synced 2024-09-11 15:05:41 +03:00
Code Issues Projects Releases Wiki Activity

remove unnecassary line

Browse Source
This commit is contained in:
Robbie Gleichman 2016-02-08 22:02:53 -08:00
parent 30a0ab87d2
commit e374c7ab4e
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
app/Translate.hs
View File

@ -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)