queryItem :: ParsecT String u Identity UnnormalizedQueryItem
queryItem =
  try (CurrentLevel <$ string ".")
    <|> (LevelAbove <$ string "..")
    <|> try (GlobInput <$> globItems)
    <?> "queryItem"
queryItem :: ParsecT String u Identity UnnormalizedQueryItem
queryItem =
  try (CurrentLevel <$ string ".")
    <|> (LevelAbove <$ string "..")
    <|> try (GlobInput <$> globItems)
    <?> "queryItem"
queryItem =
  try (CurrentLevel <$ string ".")
    <|> (LevelAbove <$ string "..")
    <|> try (GlobInput <$> globItems)
    <?> "queryItem"