actually load config

diff --git a/lib/App/Clifton/Server.pm b/lib/App/Clifton/Server.pm
index 400b929..c39b983 100644 (file)
--- a/lib/App/Clifton/Server.pm
+++ b/lib/App/Clifton/Server.pm
@@ -16,6 +16,8 @@ has config_file => (is => 'ro', required => 1);
 
 has config_loader => (is => 'lazy');
 
+has current_config => (is => 'rw');
+
 sub _build_config_loader { ConfigLoader->new }
 
 has services => (is => 'lazy');
@@ -29,7 +31,9 @@ sub shutdown { shift->_do(shutdown => @_) }
 
 sub _body_for_reload_config {
   my ($self, $args) = @_;
-  $args->{on_finished}->();
+  my $config = $self->config_loader->config_from_file($self->config_file);
+  $self->current_config($config);
+  $args->{on_finished}->($config);
 }
 
 1;