userType :: Parser UserType
userType = (FullyQualified <$> ("." *> ids)) <|> (InScope <$> ids)
  where ids = identifier `sepBy1` "."
userType :: Parser UserType
userType = (FullyQualified <$> ("." *> ids)) <|> (InScope <$> ids)
  where ids = identifier `sepBy1` "."
userType = (FullyQualified <$> ("." *> ids)) <|> (InScope <$> ids)
  where ids = identifier `sepBy1` "."