diff --git a/ComputingServices/ComputingServices/Taskhost.d/Linq/LinqPool.vb b/ComputingServices/ComputingServices/Taskhost.d/Linq/LinqPool.vb index 04982bf..3e6d735 100644 --- a/ComputingServices/ComputingServices/Taskhost.d/Linq/LinqPool.vb +++ b/ComputingServices/ComputingServices/Taskhost.d/Linq/LinqPool.vb @@ -40,7 +40,7 @@ Namespace TaskHost ''' ''' Public Function OpenQuery(source As IEnumerable, type As Type) As IPEndPoint - Dim elType As Type = type.GetArrayElement(True) + Dim elType As Type = type.GetTypeElement(True) If elType Is Nothing Then elType = type End If diff --git a/LINQ/TestMain/Module1.vb b/LINQ/TestMain/Module1.vb index e586b51..fed15fd 100644 --- a/LINQ/TestMain/Module1.vb +++ b/LINQ/TestMain/Module1.vb @@ -58,7 +58,7 @@ Module Module1 MsgBox("test2") - Dim lquerrrr = (From i As Integer In 1000000.SeqIterator.AsParallel Select "http://127.0.0.1/test123.vb".GetRequest).ToArray + Dim lquerrrr = (From i As Integer In 1000000.SeqIterator.AsParallel Select "http://127.0.0.1/test123.vb".GetRequest.__DEBUG_ECHO).ToArray MsgBox("DONE!") For i As Integer = 0 To 100000 Call Trace.WriteLine("http://127.0.0.1/test123.vb".GET) diff --git a/RQL/Repository/Repository.vb b/RQL/Repository/Repository.vb index fb58626..959604b 100644 --- a/RQL/Repository/Repository.vb +++ b/RQL/Repository/Repository.vb @@ -27,6 +27,13 @@ Namespace Linq Sub New() __api = APIProvider.LoadDefault __types = TypeRegistry.LoadDefault + __compiler = New DynamicCompiler(__types, __api) + End Sub + + Sub New(compiler As DynamicCompiler) + __compiler = compiler + __api = compiler.ApiProvider + __types = compiler.EntityProvider End Sub Public Sub AddLinq(url As String, resource As String, Linq As GetLinqResource)