Skip to content

Commit

Permalink
remove webpage
Browse files Browse the repository at this point in the history
  • Loading branch information
yfzhe committed Jan 11, 2024
1 parent 1fc1050 commit fe1898f
Showing 1 changed file with 0 additions and 15 deletions.
15 changes: 0 additions & 15 deletions eval-bot/main.rkt
Original file line number Diff line number Diff line change
Expand Up @@ -15,23 +15,8 @@

(define app
(dispatch-case
[("") handle-webpage]
[("webhook") #:method "post" handle-webhook]))

(define (handle-webpage req)
(response/xexpr
'(html
(head (title "racket-eval-bot")
(meta ((name "viewport")
(content "width=device-width, initial-scale=1"))))
(body (p "A telegram bot to eval racket code")
(p "See "
(a ((href "https://t.me/racket_eval_bot"))
"@racket_eval_bot"))
(p "Source code on "
(a ((href "https://github.com/yfzhe/racket-eval-bot"))
"GitHub"))))))

(define (handle-webhook req)
(thread
(lambda ()
Expand Down

0 comments on commit fe1898f

Please sign in to comment.