Fix a copy-and-paste bug in ocaml-topology
Merge pull request #7 from frenetic-lang/ports_of_switch_bugfix

Fix a copy-and-paste bug in ocaml-topology