pPath :: Parser String
  pPath = many1 (notFollowedBy space >> noneOf [':'])
pPath :: Parser String
pPath = many1 (notFollowedBy space >> noneOf [':'])
pPath = many1 (notFollowedBy space >> noneOf [':'])