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