leTakeLitChars d l n ('\t':cs)
  = leFail l n "Literal contains tab"
leTakeLitChars d l n ('\t':cs)
  = leFail l n "Literal contains tab"
leTakeLitChars d l n ('\t':cs)
  = leFail l n "Literal contains tab"