anchor.diff:  
   module private TypeShapeImpl =
   
  -    open System.Reflection
  -    open Microsoft.FSharp.Reflection
  -
       let allMembers =
           BindingFlags.NonPublic ||| BindingFlags.Public |||
               BindingFlags.Instance ||| BindingFlags.Static |||
  
positive.code:     let (|Int16|_|) t = test0<int16> t
      let (|Int32|_|) t = test0<int32> t
      let (|Int64|_|) t = test0<int64> t
      let (|UInt16|_|) t = test0<uint16> t
      let (|UInt32|_|) t = test0<uint32> t
      let (|UInt64|_|) t = test0<uint64> t
      let (|Single|_|) t = test0<single> t
      let (|Double|_|) t = test0<double> t
      let (|Char|_|) t = test0<char> t
  
negative.code:         elif FSharpType.IsFunction t then
              let d,c = FSharpType.GetFunctionElements t
              activate2 typedefof<ShapeFSharpFunc<_,_>> d c
  
          elif FSharpType.IsRecord(t, allMembers) then
              let genTy = 
  