getFloat :: Option -> Float
getFloat opt = case value opt of
  (FloatOpt x) -> x
  _ -> 0.0
getFloat :: Option -> Float
getFloat opt = case value opt of
  (FloatOpt x) -> x
  _ -> 0.0
getFloat opt = case value opt of
  (FloatOpt x) -> x
  _ -> 0.0