fix linq

RQL/StorageTek/API.vb

@@ -66,12 +66,12 @@ Namespace StorageTek
         End Function
 
         Private Function DIRRepository(url As String, type As Type, repo As IRepository, ext As String) As IEnumerable
-            Dim DIR = FileIO.FileSystem.GetDirectoryInfo(url)
-            Dim LQuery = (From f As IO.FileInfo
-                          In DIR.EnumerateFiles
-                          Let iExt As String = f.FullName.Split("."c).Last
-                          Where String.Equals(iExt, ext, StringComparison.OrdinalIgnoreCase)
-                          Select repo(f.FullName, type))
+            Dim DIR As IO.DirectoryInfo = FileIO.FileSystem.GetDirectoryInfo(url)
+            Dim LQuery As IEnumerable = From f As IO.FileInfo
+                                        In DIR.EnumerateFiles
+                                        Let iExt As String = f.FullName.Split("."c).Last
+                                        Where String.Equals(iExt, ext, StringComparison.OrdinalIgnoreCase)
+                                        Select repo(f.FullName, type)
             Return LQuery
         End Function