point :: Config -> Application
point cfg _ = do
  (_, pt) <- withIO (getPoint cfg) $ const (return ())
  return $ ResponseBuilder status200 [] $
    fromLazyByteString $ encode $ Doc pt
point :: Config -> Application
point cfg _ = do
  (_, pt) <- withIO (getPoint cfg) $ const (return ())
  return $ ResponseBuilder status200 [] $
    fromLazyByteString $ encode $ Doc pt
point cfg _ = do
  (_, pt) <- withIO (getPoint cfg) $ const (return ())
  return $ ResponseBuilder status200 [] $
    fromLazyByteString $ encode $ Doc pt