add support for count(*)

Parser.lhs

@@ -71,7 +71,10 @@ to be.
 
 
 > app :: P ScalarExpr
-> app = App <$> identifierString <*> parens (commaSep scalarExpr')
+> app = App <$> identifierString
+>       -- support for count(*)
+>       <*> parens (choice[(:[]) <$> try star
+>                         ,commaSep scalarExpr'])
 
 > scase :: P ScalarExpr
 > scase =

TODO

@@ -14,6 +14,8 @@ position annotation
 
 emacs parse error formatting
 
+haddock
+
 = sql support
 
 count(*)

Tests.lhs

@@ -199,7 +199,13 @@
 
 > fullQueries :: TestItem
 > fullQueries = Group "queries" $ map (uncurry TestQueryExpr)
->     [("select a, sum(c+d) as s\n\
+>     [("select count(*) from t"
+>      ,makeSelect
+>       {qeSelectList = [(Nothing, App "count" [Star])]
+>       ,qeFrom = [SimpleTableRef "t"]
+>       }
+>      )
+>     ,("select a, sum(c+d) as s\n\
 >       \  from t,u\n\
 >       \  where a > 5\n\
 >       \  group by a\n\