swrup/geochan
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix login button

Browse source
This commit is contained in:
Swrup 2022-02-20 18:37:24 +01:00
parent 4a78066683
commit 1731ac5dd9
5 changed files with 13 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/newthread_page.eml.html
View file

@ -2,8 +2,7 @@ let f request =
% begin match Dream.session "nick" request with
% | None ->
% let redirect = Dream.to_percent_encoded "/new_thread" in
% Format.printf "%s@." redirect;
<a href="/login?redirect=<%s redirect%>">Login</a> to make a new thread.
<a href="/login?redirect=<%s redirect%>">Login</a> to make a new thread.
% | Some _nick ->
<script type="text/javascript" src="/assets/js/js_newthread.js" defer="defer"></script>
<h1>New thread</h1>