-- | A Map of all edgetypes and their properties.
mapEdgeTypes
  :: HetcatsOpts -> Map.Map DGEdgeType (EdgePattern GA.EdgeValue, String)
mapEdgeTypes =
  Map.fromList . map (\ (e, l, c, _) -> (e, (l, c))) . edgeTypes
mapEdgeTypes
  :: HetcatsOpts -> Map.Map DGEdgeType (EdgePattern GA.EdgeValue, String)
mapEdgeTypes =
  Map.fromList . map (\ (e, l, c, _) -> (e, (l, c))) . edgeTypes
mapEdgeTypes =
  Map.fromList . map (\ (e, l, c, _) -> (e, (l, c))) . edgeTypes