|
definition:
|
getColumn :: [SetOp] ->
[SingleColumnSelect a] ->
[Option] ->
Maybe Int ->
DBAction [a]
getColumn _ [] _ _ = return []
getColumn setops (s:sels) options limit = do
let query = ((foldl (\quest (so, sel) -> quest ++ trSetOp so ++
trSingleSelectQuery sel )
(trSingleSelectQuery s)
(zip setops sels))
++ trOption options ++ trLimit limit++" ;")
vals <- select query [] (getSingleType s)
return (map ((getSingleValFunc s) . head) vals)
|
|
demand:
|
argument 2
|
|
deterministic:
|
deterministic operation
|
|
documentation:
|
--- Gets a single Column 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 SingleColumnSelects to specify query,
--- 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`t with a list of a-Values as parameter
--- (where a is the type of the column)
|
|
failfree:
|
<FAILING>
|
|
indeterministic:
|
referentially transparent operation
|
|
infix:
|
no fixity defined
|
|
iotype:
|
{(_,{[]},_,_) |-> _ || (_,{:},_,_) |-> _}
|
|
name:
|
getColumn
|
|
precedence:
|
no precedence defined
|
|
result-values:
|
_
|
|
signature:
|
[Database.CDBI.QueryTypes.SetOp]
-> [Database.CDBI.QueryTypes.SingleColumnSelect a]
-> [Database.CDBI.Criteria.Option] -> Prelude.Maybe Prelude.Int
-> Database.CDBI.Connection.DBAction [a]
|
|
solution-complete:
|
operation might suspend on free variables
|
|
terminating:
|
possibly non-terminating
|
|
totally-defined:
|
possibly non-reducible on same data term
|