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 syntaxGraphFromDrawing and ingSyntaxGraphToDrawing from TranslateCore.

Browse Source
This commit is contained in:
Robbie Gleichman 2016-11-30 20:59:25 -08:00
parent 989a8f520e
commit 762a6539c8
1 changed files with 5 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
app/TranslateCore.hs
View File

@ -20,24 +20,20 @@ module TranslateCore(
makeBox,
nTupleString,
nListString,
syntaxGraphToDrawing,
syntaxGraphToFglGraph,
ingSyntaxGraphToDrawing,
nodeToIcon
) where
import Data.Semigroup(Semigroup, (<>))
import qualified Diagrams.Prelude as DIA
import Control.Monad.State(State)
import Data.Either(partitionEithers)
import Control.Arrow(second)
import qualified Data.Graph.Inductive.PatriciaTree as FGR
import qualified Data.Graph.Inductive as ING
import Diagrams.TwoD.GraphViz as DiaGV
import Data.List(find)
import Data.Semigroup(Semigroup, (<>))
import qualified Diagrams.Prelude as DIA
import Diagrams.TwoD.GraphViz as DiaGV
import Types(Icon, SyntaxNode(..), Edge(..), EdgeOption(..), Drawing(..),
NameAndPort(..), IDState, getId, SgNamedNode, IngSyntaxGraph)
import Types(Icon, SyntaxNode(..), Edge(..), EdgeOption(..),
NameAndPort(..), IDState, getId, SgNamedNode)
import Util(noEnds, nameAndPort, makeSimpleEdge, justName, fromMaybeError, maybeBoolToBool)
import Icons(Icon(..))
@ -223,14 +219,3 @@ syntaxGraphToFglGraph (SyntaxGraph nodes edges _ _) =
errorString =
"syntaxGraphToFglGraph edge connects to non-existent node. Node Name ="
++ show name ++ " Edge=" ++ show e
syntaxGraphToDrawing :: SyntaxGraph -> Drawing
syntaxGraphToDrawing (SyntaxGraph nodes edges _ _) =
Drawing icons edges where
icons = fmap (second nodeToIcon) nodes
ingSyntaxGraphToDrawing :: ING.Graph gr => IngSyntaxGraph gr -> Drawing
ingSyntaxGraphToDrawing syntaxGraph = Drawing icons edges where
icons = (second nodeToIcon . snd) <$> ING.labNodes syntaxGraph
edges = ING.edgeLabel <$> ING.labEdges syntaxGraph