index :: Config -> Application
index cfg _ = do
  (_, pt) <- withIO (getPoint cfg) $ const (return ())
  return $ ResponseBuilder status200 [] $ renderHtmlBuilder $ html cfg $
    preEscapedLazyText $ decodeUtf8 $ encode $ Doc pt
index :: Config -> Application
index cfg _ = do
  (_, pt) <- withIO (getPoint cfg) $ const (return ())
  return $ ResponseBuilder status200 [] $ renderHtmlBuilder $ html cfg $
    preEscapedLazyText $ decodeUtf8 $ encode $ Doc pt
index cfg _ = do
  (_, pt) <- withIO (getPoint cfg) $ const (return ())
  return $ ResponseBuilder status200 [] $ renderHtmlBuilder $ html cfg $
    preEscapedLazyText $ decodeUtf8 $ encode $ Doc pt