X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=bin%2Ftak-repl;h=2383219fd4161ff9f1d1df127a9596721e107ed2;hb=986f5290d9338118f95f2293f705368fb142d270;hp=7bc5d3e7074a27aafc41cba13685883c55113056;hpb=8b6c1f59e563ab0ccdd728c327b2c994833fcd87;p=scpubgit%2FTak.git

diff --git a/bin/tak-repl b/bin/tak-repl
index 7bc5d3e..2383219 100644
--- a/bin/tak-repl
+++ b/bin/tak-repl
@@ -1,15 +1,14 @@
 #!/usr/bin/env perl
 
-use Tak::WorldHandle;
+use Tak::Client;
+use Tak::Router;
 use Tak::REPL;
 use strictures 1;
 
-my $world = do {
-  if (my $ssh_target = $ARGV[0]) {
-    Tak::WorldHandle->new_remote($ssh_target);
-  } else {
-    Tak::WorldHandle->new_local;
-  }
-};
+my $client = Tak::Client->new(service => Tak::Router->new);
 
-Tak::REPL->new(world => $world)->run;
+$client->curry('meta')->do(register => eval => 'Tak::EvalService');
+
+my $repl = Tak::REPL->new(client => $client->curry('eval'));
+
+$repl->run;