relational-query 0.0.1.8 → 0.0.1.9

raw patch · 2 files changed

+5/−5 lines, 2 files

Files

• relational-query.cabal +1/−1
• src/Database/Relational/Query/Type.hs +4/−4

@@ -1,5 +1,5 @@ name:                relational-query-version:             0.0.1.8+version:             0.0.1.9 synopsis:            Typeful, Modular, Relational, algebraic query engine description:         This package contiains typeful relation structure and                      relational-algebraic query building DSL which can

@@ -184,17 +184,17 @@ unsafeTypedInsert q = unsafeTypedInsert' q q 1  -- | Make typed 'Insert' from columns selector 'Pi' and 'Table'.-typedInsert' :: Config -> Pi r r' -> Table r -> Insert r'-typedInsert' config pi' tbl = unsafeTypedInsert' (insertSQL pi' tbl) ci n  where+typedInsert' :: Config -> Table r -> Pi r r' -> Insert r'+typedInsert' config tbl pi' = unsafeTypedInsert' (insertSQL pi' tbl) ci n  where   (ci, n) = insertSizedChunkSQL pi' tbl $ chunksInsertSize config  -- | Make typed 'Insert' from columns selector 'Pi' and 'Table'.-typedInsert :: Pi r r' -> Table r -> Insert r'+typedInsert :: Table r -> Pi r r' -> Insert r' typedInsert =  typedInsert' defaultConfig  -- | Infered 'Insert'. derivedInsert :: TableDerivable r => Insert r-derivedInsert =  typedInsert Pi.id' derivedTable+derivedInsert =  typedInsert derivedTable Pi.id'  -- | Show insert SQL string. instance Show (Insert a) where