tailPathChar = lookAhead (satisfy $ (`notElem` "\"#.,()[]{}") ) >> (satisfy isAllowedChar)
tailPathChar = lookAhead (satisfy $ (`notElem` "\"#.,()[]{}") ) >> (satisfy isAllowedChar)
tailPathChar = lookAhead (satisfy $ (`notElem` "\"#.,()[]{}") ) >> (satisfy isAllowedChar)