anchor.diff:  
   /// Gets all field names from a record type formatted with an alias.
   /// E.g. with a field "id" and alias "a", returns "a.id a_id"
  -let recordFieldsAlias ty alias = 
  -    recordFields ty |> fieldAlias alias |> sjoin ","
  +let recordFieldsAlias ty = 
  +    let fields = recordFields ty
  +    fun alias ->
  +        fields |> fieldAlias alias |> sjoin ","
  
positive.code: let recordFields t = 
      FSharpType.GetRecordFields t |> Array.map (fun p -> p.Name)
  
  let asRecord<'a> = 
      let createRecord = FSharpValue.PreComputeRecordConstructor(typeof<'a>)
      let make values = (createRecord values) :?> 'a
  
negative.code:         | x -> x
      cmd.Parameters.Add par |> ignore
  
  /// Creates an IDbCommand
  let createCommand (cmgr: ConnectionManager) = 
      let create,dispose,tx = cmgr
      let conn = create()
  