1module Graph where 2 3 countryLookUp :: String -> Graph -> Maybe Int 4 countryLookUp country graph = indexOf country graph where 5 6 indexOf :: String -> Graph -> Maybe Int 7 indexOf _ Empty = Nothing 8