anchor.diff:              expression
               |> map(mapFun)
   
  -        let queryList, queryParameters =  results |> splitListOfTuples
  +        let queryList, queryParameters, constructionInfo =  results |> splitListOfTuples
   
           let query = queryList |> String.concat("")
   
  
positive.code: ﻿namespace FSharp.QueryProvider.QueryTranslator
  
  type PreparedParameter<'T> =
      {
          Name : string
          Value : obj 
          DbType : 'T
      }
  
  type PreparedStatement<'P> =
      {
          Text : string
          FormattedText : string
          Parameters : PreparedParameter<'P> seq
      }
  
  type IQueryable = System.Linq.IQueryable
  type IQueryable<'T> = System.Linq.IQueryable<'T>
  
negative.code:                                 | None, None -> None
                                  | Some w, None -> Some w
                                  | None, Some c -> Some c
                                  | Some(wq,wp,wc), Some(cq,cp,cc) -> Some(wq @ [" AND "] @ cq, wp @ cp, wc @ cc)
  
                              match total with 
                              | None -> [], [], []
                              | Some (q, qp, qc) -> [" WHERE ("] @ q @ [")"], qp, qc
  
                          let orderByClause, orderByParameters, orderByCtor =
                              match sorts with
                              | [] -> [], [], []
                              | _ ->
                                  let colSorts, parameters, ctor = 
                                      sorts |> List.rev |> List.map(fun s ->
                                          let sortMethod = 
                                              match s.Method.Name with
  