DataPoint

Src/Myc.Futures.pas

@@ -34,7 +34,7 @@ type
 
     private
         FFuture: IFuture;
-        function GetDone: TState; inline;
+        function GetDone: TState.IState; inline;
         function GetValue: T; inline;
     {$ENDREGION}
     public
@@ -55,7 +55,7 @@ type
         function Chain<S>(const Proc: TFuncConst<T, S>): TFuture<S>; overload;
         function WaitFor: T;
 
-        property Done: TState read GetDone;
+        property Done: TState.IState read GetDone;
         property Value: T read GetValue;
     end;
 
@@ -105,7 +105,7 @@ begin
     Result := TMycGateFuncFuture<T>.Create(TaskManager, Gate, Proc);
 end;
 
-function TFuture<T>.GetDone: TState;
+function TFuture<T>.GetDone: TState.IState;
 begin
     Result := FFuture.Done;
 end;