ledRangeS :: [Char] -> Pos -> DetailedRange
detailedRangeS s from    = DetailedRange $ foo [] s from


de
detailedRangeS :: [Char] -> Pos -> DetailedRange
detailedRangeS s from    = DetailedRange $ foo [] s from
detailedRangeS s from    = DetailedRange $ foo [] s from