Permalink
Browse files

make login page use new layout

  • Loading branch information...
1 parent b4e0583 commit fc59a399442fd28fd8a3977806f26da2f4fa4838 Austin Seipp committed Jun 13, 2011
Showing with 2 additions and 1 deletion.
  1. +2 −1 src/admin.opa
View
3 src/admin.opa
@@ -1,5 +1,6 @@
package opaque.admin
import widgets.loginbox
+import opaque.layout
// User types and user database
type Admin.user = { passwd: string }
@@ -22,7 +23,7 @@ Admin = {{
/* Main login page */
mainpage() =
(t, p) = if is_logged_in() then ("User page", adminpage()) else ("Login page", loginbox())
- Resource.html(t, p)
+ Layout.styled_page(t, p)
/* Login box and login check */
loginbox() =

0 comments on commit fc59a39

Please sign in to comment.