Commit d78c8484 authored by Peter Achten's avatar Peter Achten
Browse files

minor change

parent 3a8d9b5c
......@@ -14,9 +14,7 @@ Start world = doHtmlServer mainEntrance world
mainEntrance :: *HSt -> *(Html,*HSt)
mainEntrance hst
# (body,hst) = loginhandling hst // a login will be checked on correctness each time a page is requested !
= mkHtml "Conference Manager"
[ BodyTag body
] hst
= mkHtml "Conference Manager" body hst
//Start world = doHtmlServer test world
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment