leTakeLitChars d l n ('\n':cs)
  = leFail l n "Literal exceeds line"
leTakeLitChars d l n ('\n':cs)
  = leFail l n "Literal exceeds line"
leTakeLitChars d l n ('\n':cs)
  = leFail l n "Literal exceeds line"