getBool :: Option -> Bool
getBool opt = case value opt of
  (BoolOpt x) -> x
  _ -> False
getBool :: Option -> Bool
getBool opt = case value opt of
  (BoolOpt x) -> x
  _ -> False
getBool opt = case value opt of
  (BoolOpt x) -> x
  _ -> False