| definition: |
getColumnSixTuple :: [SetOp]
-> [SixColumnSelect a b c d e f]
-> [Option]
-> Maybe Int
-> DBAction [(a,b,c,d,e,f)]
getColumnSixTuple _ [] _ _ = return []
getColumnSixTuple setops (s:sels) options limit = do
let query = ((foldl (\quest (so, sel) -> quest ++ trSetOp so ++
trSixTupleSelectQuery sel)
(trSixTupleSelectQuery s)
(zip setops sels))
++ trOption options ++ trLimit limit++" ;")
(fun1, fun2, fun3, fun4, fun5, fun6) = getSixTupleValFuncs s
vals <- select query [] (getSixTupleTypes s)
return $ map (\ [val1, val2, val3, val4, val5, val6] -> ((fun1 val1),
(fun2 val2),
(fun3 val3),
(fun4 val4),
(fun5 val5),
(fun6 val6)))
vals
|
| demand: |
argument 2 |
| deterministic: |
deterministic operation |
| documentation: |
--- Gets six Columns from the database. --- @param setops - list of Setoperators to combine queries if more than one is --- given, can be empty otherwise --- @param sels - list of SixColumnSelects to specify queries, if there --- are more requests than can be combined with setoperators --- they will be ignored ---@param options - order-by-clause for whole query ---@param limit - value to reduce number of returned rows ---@return a `DBAction` with a list of a-values --- (where a is the type of the column) |
| failfree: |
<FAILING> |
| indeterministic: |
referentially transparent operation |
| infix: |
no fixity defined |
| iotype: |
{(_,{[]},_,_) |-> _ || (_,{:},_,_) |-> _}
|
| name: |
getColumnSixTuple |
| precedence: |
no precedence defined |
| result-values: |
_ |
| signature: |
[Database.CDBI.QueryTypes.SetOp] -> [Database.CDBI.QueryTypes.SixColumnSelect a b c d e f] -> [Database.CDBI.Criteria.Option] -> Prelude.Maybe Prelude.Int -> Database.CDBI.Connection.DBAction [(a, b, c, d, e, f)] |
| solution-complete: |
operation might suspend on free variables |
| terminating: |
possibly non-terminating |
| totally-defined: |
possibly non-reducible on same data term |