getRange :: Option -> GnuRange
getRange opt = case value opt of
  (GnuRangeOpt x) -> x
  _ -> GnuRange 0 0
getRange :: Option -> GnuRange
getRange opt = case value opt of
  (GnuRangeOpt x) -> x
  _ -> GnuRange 0 0
getRange opt = case value opt of
  (GnuRangeOpt x) -> x
  _ -> GnuRange 0 0