getString :: Option -> String
getString opt = case value opt of
  (StringOpt x) -> x
  _ -> ""
getString :: Option -> String
getString opt = case value opt of
  (StringOpt x) -> x
  _ -> ""
getString opt = case value opt of
  (StringOpt x) -> x
  _ -> ""