getList :: Option -> [String]
getList opt = case value opt of
  (ListOpt x) -> x
  _ -> []
getList :: Option -> [String]
getList opt = case value opt of
  (ListOpt x) -> x
  _ -> []
getList opt = case value opt of
  (ListOpt x) -> x
  _ -> []