T :: T.Text -> Pos -> Range
rangeT  txt from
  | T.length txt == 0 = NoRange
  | T.length txt == 1 = Range from from
  | otherwise = Range from to
  where to = last $ fooT [] txt from


-- | helpers take a @Pos@ (not a @Delta@)

det
rangeT :: T.Text -> Pos -> Range
rangeT  txt from
  | T.length txt == 0 = NoRange
  | T.length txt == 1 = Range from from
  | otherwise = Range from to
  where to = last $ fooT [] txt from


-- | helpers take a @Pos@ (not a @Delta@)
rangeT  txt from
  | T.length txt == 0 = NoRange
  | T.length txt == 1 = Range from from
  | otherwise = Range from to
  where to = last $ fooT [] txt from


-- | helpers take a @Pos@ (not a @Delta@)