From b5a72ec22c870b2ceab4409fe37ef04c6fc31cb5 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Tue, 23 Jan 2018 12:10:31 -0800
Subject: Add completion message

---
 main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'main.hs')

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
-- 
cgit v1.2.3