graphInnereds.elm

import Graphics.Element exposing (show)

graph = {nodes=[{id=1, name="test1"}, {id=2, name="test2"}],
         edges=[{from=2, to=1, e_type="get"}, {from=2, to=1, e_type="set"}, {from=1, to=2, e_type="get"}]}
main =
  show (edgesTo graph.edges 1, edgesToOf graph.edges 1 "get")

edgesTo : List { a | to : Int } -> Int -> Int
edgesTo list nodeId =
  case list of
    [] ->
        0

    first :: rest ->
        if first.to == nodeId then 
            1 + edgesTo rest nodeId
        else
            edgesTo rest nodeId

edgesToOf : List { a | to : Int, e_type : String } -> Int -> String -> Int
edgesToOf list nodeId edgeType =
  case list of
    [] ->
        0

    first :: rest ->
        if first.to == nodeId && first.e_type == edgeType then 
            1 + edgesToOf rest nodeId edgeType
        else
            edgesToOf rest nodeId edgeType