postgresql-syntax 0.2.0.1 → 0.3

raw patch · 6 files changed

+13/−7 lines, 6 files

Files

• hedgehog-test/Main.hs +2/−0
• hedgehog-test/Main/Gen.hs +1/−1
• library/PostgresqlSyntax/Parsing.hs +3/−3
• library/PostgresqlSyntax/Rendering.hs +2/−2
• postgresql-syntax.cabal +1/−1
• tasty-test/Main.hs +4/−0

@@ -27,6 +27,8 @@                   failure                 Right ast' -> ast === ast'       in [+          p "typename" 10000 Gen.typename Parsing.typename Rendering.typename+          ,           p "tableRef" 10000 Gen.tableRef Parsing.tableRef Rendering.tableRef           ,           p "aExpr" 100000 Gen.aExpr Parsing.aExpr Rendering.aExpr

@@ -817,7 +817,7 @@ -- ** Typename ------------------------- -typename = Typename <$> bool <*> simpleTypename <*> bool <*> maybe ((,) <$> typenameArrayDimensions <*> bool)+typename = Typename <$> bool <*> simpleTypename <*> pure False <*> maybe ((,) <$> typenameArrayDimensions <*> pure False)  typenameArrayDimensions = choice [     BoundsTypenameArrayDimensions <$> arrayBounds,

@@ -125,8 +125,8 @@     in collectChunks mempty   return _tail -quasiQuote :: Parser a -> Parser a-quasiQuote p = space *> p <* endHead <* space <* eof+atEnd :: Parser a -> Parser a+atEnd p = space *> p <* endHead <* space <* eof   -- * PreparableStmt@@ -2081,7 +2081,7 @@           return (Typename a b c (Just (ExplicitTypenameArrayDimensions d, e)))         ,         do-          space1+          space           d <- arrayBounds           endHead           e <- trueIfPresent (space *> char '?')

@@ -895,14 +895,14 @@ -------------------------  typename (Typename a b c d) =-  bool "" "SETOF " a <> simpleTypename b <> suffixMaybe typenameArrayDimensionsWithQuestionMark d+  bool "" "SETOF " a <> simpleTypename b <> foldMap typenameArrayDimensionsWithQuestionMark d  typenameArrayDimensionsWithQuestionMark (a, b) =   typenameArrayDimensions a  typenameArrayDimensions = \ case   BoundsTypenameArrayDimensions a -> arrayBounds a-  ExplicitTypenameArrayDimensions a -> "ARRAY" <> foldMap (inBrackets . iconst) a+  ExplicitTypenameArrayDimensions a -> " ARRAY" <> foldMap (inBrackets . iconst) a  arrayBounds = spaceNonEmpty (inBrackets . foldMap iconst) 

@@ -1,5 +1,5 @@ name: postgresql-syntax-version: 0.2.0.1+version: 0.3 category: Database, PostgreSQL, Parsing synopsis: PostgreSQL AST parsing and rendering description:

@@ -33,6 +33,10 @@               \on b.provider_fk = p.provider_id"             ],           testParserOnAllInputs "typename" Parsing.typename [+              "int4[]",+              "int4[][]",+              "int4?[]",+              "int4?[]?",               "aa array",               "DOUBLE PRECISION",               "bool", "int2", "int4", "int8", "float4", "float8", "numeric", "char", "text", "bytea", "date", "timestamp", "timestamptz", "time", "timetz", "interval", "uuid", "inet", "json", "jsonb"