ledRangeT :: T.Text -> Pos -> DetailedRange
detailedRangeT t from    = DetailedRange $ fooT [] t from


--
detailedRangeT :: T.Text -> Pos -> DetailedRange
detailedRangeT t from    = DetailedRange $ fooT [] t from
detailedRangeT t from    = DetailedRange $ fooT [] t from