- perFile (tagInfo@(_tag, _file, lNo, _colNo):tags) count pos (line:lines)
- | lNo > count =
- perFile (tagInfo:tags) (count+1) (pos+length line) lines
- perFile (tagInfo@(_tag, _file, lNo, _colNo):tags) count pos lines@(line:_)
- | lNo == count =
- showETag tagInfo line pos : perFile tags count pos lines
+ perFile (tagInfo@(_tag, _file, lNo, _colNo):tags) count pos lines@(line:lines')
+ | lNo > count = perFile (tagInfo:tags) (count+1) (pos+length line) lines'
+ | lNo == count = showETag tagInfo line pos : perFile tags count pos lines