Changeset 3565 for src/Pugs/Bind.hs
- Timestamp:
- 05/21/05 09:28:16 (4 years ago)
- svk:copy_cache_prev:
- 5154
- Files:
-
- 1 modified
-
src/Pugs/Bind.hs (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Bind.hs
r3328 r3565 175 175 any unbound optional ones. Once this is complete, /everything/ should be 176 176 bound. 177 178 Note that while 'bindParams' produces values /representing/ the bindings from 179 params to args, it does not actually introduce any symbols--that occurs later 180 on in the call process. 177 181 -} 178 182 bindParams :: VCode -- ^ A code object to perform bindings on … … 204 208 ++ (show $ act) ++ " actual, " 205 209 ++ (show $ act + cnt) ++ " expected" 206 210 207 211 let (boundReq, boundOpt) = partition (\x -> isRequired (fst x)) bindings -- bound params which are required 208 212 (reqPrms, optPrms) = span isRequired params -- all params which are required, and all params which are opt
