removeEdgePropertyE :: Key -> Edge -> GS Edge
removeEdgePropertyE k e = if k `elem` nodeKeyBlacklist then return e else saveEdge newEdge
    where
        newEdge  = alterEdgeProperties (M.delete k $ edgeProperties e) e
removeEdgePropertyE :: Key -> Edge -> GS Edge
removeEdgePropertyE k e = if k `elem` nodeKeyBlacklist then return e else saveEdge newEdge
    where
        newEdge  = alterEdgeProperties (M.delete k $ edgeProperties e) e
removeEdgePropertyE k e = if k `elem` nodeKeyBlacklist then return e else saveEdge newEdge
    where
        newEdge  = alterEdgeProperties (M.delete k $ edgeProperties e) e