isolating issue to be property / getter

Author: Steven Taylor

FtpProvider/FtpProvider/FtpProvider.fs

@@ -53,7 +53,7 @@ type FtpProviderImpl(config : TypeProviderConfig) as this =
 
             td.AddMembersDelayed(fun () -> 
                 // TODO.6
-                if diag then printfn "debug: getting site: %s, user: %s, pwd: %s" site user (String.replicate (pwd.Length) "#")
+                if diag then printfn "debug: getting site: %s, user: %s, pwd: %s" site user (String.replicate (pwd.Length) "*")
                 let files, dirs = getFtpDirectory (site, user, pwd)
 
                 [
@@ -71,31 +71,31 @@ type FtpProviderImpl(config : TypeProviderConfig) as this =
 
                         let contentsProperty = 
                                 ProvidedProperty("Contents", typeof<obj>,
-                                                    GetterCode =
-                                                        (fun args -> 
-                                                            <@@ 
-                                                                if diag then printfn "debug: getting %s%s" site file
-                                                                let request = WebRequest.Create(site + file) :?> FtpWebRequest
-                                                    
-                                                                if diag then printf "  - debug: 1)getting"
-                                                                request.Method <- WebRequestMethods.Ftp.DownloadFile
-                                                                request.Credentials <- new NetworkCredential(user, pwd) 
-                                                                let response = request.GetResponse() :?> FtpWebResponse   // TODO.2 
-                                                    
-                                                                if diag then printf ",2)streaming"
-                                                                use responseStream = response.GetResponseStream()
-                                                                use reader = new StreamReader(responseStream)
-                                                    
-                                                                if diag then printf ",3)reading"
-                                                                let r = reader.ReadToEnd() :> obj
-                                                                if diag then printfn ",4)returning info"
-                                                                r
-
-                                                                // TODO.3
-
-                                                              @@>))
+                                                     GetterCode = (fun args -> <@@ "the file contents" @@> ))
+//                                                   GetterCode = 
+//                                                        (fun args -> 
+//                                                            <@@ 
+//                                                                if diag then printfn "debug: getting %s%s" site file
+//                                                                let request = WebRequest.Create(site + file) :?> FtpWebRequest
+//                                                    
+//                                                                if diag then printf "  - debug: 1)getting"
+//                                                                request.Method <- WebRequestMethods.Ftp.DownloadFile
+//                                                                request.Credentials <- new NetworkCredential(user, pwd) 
+//                                                                let response = request.GetResponse() :?> FtpWebResponse   // TODO.2 
+//                                                    
+//                                                                if diag then printf ",2)streaming"
+//                                                                use responseStream = response.GetResponseStream()
+//                                                                use reader = new StreamReader(responseStream)
+//                                                    
+//                                                                if diag then printf ",3)reading"
+//                                                                let r = reader.ReadToEnd() :> obj
+//                                                                if diag then printfn ",4)returning info"
+//                                                                r
+//
+//                                                                // TODO.3
+//
+//                                                              @@>))
                         nestedType.AddMember contentsProperty
-
                         yield nestedType :> MemberInfo 
                    ]
                    )

FtpProvider/test.fsx

@@ -2,8 +2,10 @@
 
 type F = FSharp.Management.FtpProvider<"ftp://ftp.ncbi.nlm.nih.gov/"> 
 
-F.genomes.Drosophila_melanogaster.``RELEASE_4.1``.CHR_2.``NT_033778.faa``              // see: FtpProvider.fs -> BUG.1
+F.genomes.Drosophila_melanogaster.``RELEASE_4.1``.CHR_2.``NT_033778.faa``         
 
-// F.genomes.Drosophila_melanogaster.``RELEASE_4.1``.CHR_2.``NT_033778.faa``.Contents  // ie. we're not getting to the .Contents
+// see: FtpProvider.fs -> BUG.1
+
+// F.genomes.Drosophila_melanogaster.``RELEASE_4.1``.CHR_2.``NT_033778.faa``.Contents  // ie. we're not even getting to the .Contents
 
 // F.genomes.Buceros_rhinoceros_silvestris.RNA.``Gnomon.mRNA.fsa.gz``