generalize . to a binary operator

Language/SQL/SimpleSQL/Fixity.lhs

@@ -81,9 +81,7 @@ the fixity code.
 >     App n es -> HSE.App (var ('f':name n)) $ ltoh es
 >     Parens e0 -> HSE.Paren $ toHaskell e0
 >     IntervalLit {} -> str ('v':show e)
->     Iden2 {} -> str ('v':show e)
 >     Star -> str ('v':show e)
->     Star2 {} -> str ('v':show e)
 >     AggregateApp nm d es od ->
 >         HSE.App (var ('a':name nm))
 >         $ HSE.List [str $ show (d,map snd od)

Language/SQL/SimpleSQL/Parser.lhs

@@ -125,20 +125,15 @@ identifiers.
 > identifier :: P ScalarExpr
 > identifier = Iden <$> name
 
-Identifier with one dot in it. This should be extended to any amount
-of dots.
-
-> dottedIden :: P ScalarExpr
-> dottedIden = Iden2 <$> name <*> (symbol "." *> name)
-
 == star
 
 used in select *, select x.*, and agg(*) variations, and some other
-places as well.
+places as well. Because it is quite general, the parser doesn't
+attempt to check that the star is in a valid context, it parses it ok
+in any scalar expression context.
 
 > star :: P ScalarExpr
-> star = choice [Star <$ symbol "*"
->               ,Star2 <$> (name <* symbol "." <* symbol "*")]
+> star = Star <$ symbol "*"
 
 == function application, aggregates and windows
 
@@ -327,7 +322,7 @@ keyword.
 > binOpSymbolNames =
 >     ["=", "<=", ">=", "!=", "<>", "<", ">"
 >     ,"*", "/", "+", "-"
->     ,"||"]
+>     ,"||", "."]
 
 > binOpKeywordNames :: [String]
 > binOpKeywordNames = ["and", "or", "like", "overlaps"]
@@ -411,7 +406,8 @@ associativity. This is fixed with a separate pass over the AST.
 >              ++ prefixUnOpKeywordNames ++ prefixUnOpSymbolNames
 >              ++ postfixOpKeywords
 >     -- these are the ops with the highest precedence in order
->     highPrec = [infixl_ ["*","/"]
+>     highPrec = [infixl_ ["."]
+>                ,infixl_ ["*","/"]
 >                ,infixl_ ["+", "-"]
 >                ,infixl_ ["<=",">=","!=","<>","||","like"]
 >                ]
@@ -451,7 +447,6 @@ could at least do with some heavy explanation.
 >                 ,subquery
 >                 ,prefixUnaryOp
 >                 ,try app
->                 ,try dottedIden
 >                 ,try star
 >                 ,identifier
 >                 ,sparens]

Language/SQL/SimpleSQL/Pretty.lhs

@@ -39,9 +39,7 @@
 >     <+> text u
 >     <+> maybe empty (parens . text . show ) p
 > scalarExpr (Iden i) = name i
-> scalarExpr (Iden2 q i) = name q <> text "." <> name i
 > scalarExpr Star = text "*"
-> scalarExpr (Star2 q) = name q <> text "." <> text "*"
 
 > scalarExpr (App f es) = name f <> parens (commaSep (map scalarExpr es))
 
@@ -97,6 +95,9 @@
 >   where
 >     ands (BinOp a op' b) | op == op' = ands a ++ ands b
 >     ands x = [x]
+> -- special case for . we don't use whitespace
+> scalarExpr (BinOp e0 (Name ".") e1) =
+>     scalarExpr e0 <> text "." <> scalarExpr e1
 > scalarExpr (BinOp e0 f e1) =
 >     scalarExpr e0 <+> name f <+> scalarExpr e1
 

Language/SQL/SimpleSQL/Syntax.lhs

@@ -47,12 +47,8 @@
 >     | IntervalLit String String (Maybe Int)
 >       -- | identifier without dots
 >     | Iden Name
->       -- | identifier with one dot
->     | Iden2 Name Name
->       -- | star
+>       -- | star, as in select *, t.*, count(*)
 >     | Star
->       -- | star with qualifier, e.g t.*
->     | Star2 Name
 >       -- | function application (anything that looks like c style
 >       -- function application syntactically)
 >     | App Name [ScalarExpr]