anchor.diff:                      if not( String.IsNullOrEmpty(%%args.[0]))
                       then %%args.[0]
                       elif byName then Configuration.GetConnectionStringRunTimeByName(connectionStringOrName)
  -                    else designTimeConnectionString
  -                        
  -                do
  -                    if dataDirectory <> ""
  -                    then AppDomain.CurrentDomain.SetData("DataDirectory", dataDirectory)
  +                    else designTimeConnectionString                        
                   box(new SqlConnection( runTimeConnectionString))
               @@>
   
  
positive.code:         let connectionStringOrName : string = unbox parameters.[0] 
          let resultType : ResultType = unbox parameters.[1] 
          let configFile : string = unbox parameters.[2] 
          let dataDirectory : string = unbox parameters.[3] 
  
          let resolutionFolder = config.ResolutionFolder
  
  
negative.code:                 ProvidedStaticParameter("ConnectionStringOrName", typeof<string>) 
                  ProvidedStaticParameter("ResultType", typeof<ResultType>, ResultType.Tuples) 
                  ProvidedStaticParameter("ConfigFile", typeof<string>, "") 
              ],             
              instantiationFunction = this.CreateType
          )
  