anchor.diff:                          let args = String.concat "," args
                           let name, reverse =
                               match t with
  -                            | t when hasUnitOfMeasure -> toString useFullName t.UnderlyingSystemType, false
  +                            | t when hasUnit -> toString useFullName t.UnderlyingSystemType, false
                               // Short names for some known generic types
                               | t when not useQualifiedNames && t.GetGenericTypeDefinition().Name = typeof<int seq>.GetGenericTypeDefinition().Name -> "seq", true
                               | t when not useQualifiedNames && t.GetGenericTypeDefinition().Name = typeof<int list>.GetGenericTypeDefinition().Name -> "list", true
  
positive.code:         let maxWidth = defaultArg maxWidth 100
          let useQualifiedNames = defaultArg useQualifiedNames false
  
          let knownNamespaces =
              [ t.Namespace
                "Microsoft.FSharp.Core"
  
negative.code: 
              if ignoreOutput then
                  ""
              elif hasUnit || t.IsGenericParameter || t.DeclaringType = null then
                  innerToString t + (warnIfWrongAssembly t)
              else
                  (toString useFullName t.DeclaringType) + "+" + (innerToString t) + (warnIfWrongAssembly t)
  