pathString = liftM2 (:) (try headPathChar ) (option [] $ many1 (try tailPathChar))
pathString = liftM2 (:) (try headPathChar ) (option [] $ many1 (try tailPathChar))
pathString = liftM2 (:) (try headPathChar ) (option [] $ many1 (try tailPathChar))