getOms :: OmsOrNetwork -> [SPEC]
getOms o = case o of
  MkOms s -> [item s]
  MkNetwork _ -> []
getOms :: OmsOrNetwork -> [SPEC]
getOms o = case o of
  MkOms s -> [item s]
  MkNetwork _ -> []
getOms o = case o of
  MkOms s -> [item s]
  MkNetwork _ -> []