Type.FSharpName bug: can't handle types in modules

[GoogleCodeExporter]

For example:

> module Module = type Hello(x:int) = let x = x;;

module Module = begin
  type Hello =
    class
      new : x:int -> Hello
    end
end

> Sprint.sprintSig typeof<Module.Hello>;;
val it : string = "FSI_0264+Module+Hello"

Original issue reported on code.google.com by stephen....@gmail.com on 20 Feb 2011 at 4:40