pangraph-0.2.0: src/Pangraph/Examples/SampleGraph.hs

{-# LANGUAGE OverloadedStrings #-}

module Pangraph.Examples.SampleGraph
    ( smallGraph
    ) where

import Pangraph
import Data.Maybe(fromJust)

smallGraph :: Pangraph
smallGraph = fromJust graph
  where
    graph =
      makePangraph
        [makeVertex "n0" [("id","n0")]
        ,makeVertex "n1" [("id","n1")]
        ,makeVertex "n2" [("id","n2")]]
        [makeEdge ("n0", "n2") 
          [("source","n0"),("target","n2")]]