diff options
-rwxr-xr-x | main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |