maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* login page

Browse source
This commit is contained in:
"Vincent Ambo ext:(%22) 2012-03-07 14:51:45 +01:00
parent b2bb90beff
commit c880a6092c
3 changed files with 24 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/Main.hs
View file

@ -43,6 +43,9 @@ tazBlog = do
, path $ \(year :: Int) -> path $ \(month :: Int) -> path $ \(id_ :: String) -> formatOldLink year month id_
, dir "res" $ serveDirectory DisableBrowsing [] "../res"
, dir "notice" $ ok $ toResponse showSiteNotice
, do adminSession <- lookCookieValue "session"
ok $ toResponse ("Eingeloggt" :: String)
, dir "admin" $ ok $ toResponse $ adminTemplate adminLogin "Login"
, serveDirectory DisableBrowsing [] "../res"
]