networkFromStr :: String -> Network
networkFromStr s = Network (mkObjectPath_ $ fromString $ legacyNNames s)
networkFromStr :: String -> Network
networkFromStr s = Network (mkObjectPath_ $ fromString $ legacyNNames s)
networkFromStr s = Network (mkObjectPath_ $ fromString $ legacyNNames s)