Add completion message

1 files changed, 1 insertions, 1 deletions

diff --git a/main.hs b/main.hs
index 1d06dd8..a09c9ce 100755
--- a/main.hs
+++ b/main.hs
@@ -269,7 +269,7 @@ postBootstrapR = do
            let (number, context, name) = record
            c <- liftIO $ update db $ AddCaller name number context
            return c
-  sendStatusJSON status200 $ callers
+  sendStatusJSON status200 $ ("Bootstrap complete." :: Text)
 
 
 -- | Start a simple warp server on 3000