diff options
Diffstat (limited to 'src/Blog.hs')
| -rw-r--r-- | src/Blog.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/Blog.hs b/src/Blog.hs index 87397ac821a3..aa1882073e5f 100644 --- a/src/Blog.hs +++ b/src/Blog.hs @@ -23,6 +23,11 @@ data Comment = Comment{ cdate :: Integer } deriving (Show, Data, Typeable) +data Author = Author { + username :: String, + password :: String +} deriving (Show, Data, Typeable) + data Entry = Entry{ _id :: String, year :: Int, @@ -196,7 +201,7 @@ adminLogin = H.div ! A.class_ "loginBox" $ do H.p $ H.input ! A.type_ "text" ! A.style "font-size: 2;" ! A.name "account" ! A.value "tazjin" ! A.readonly "1" H.p $ "Passwort" - H.p $ H.input ! A.type_ "password" ! A.style "font-size: 2;" ! A.name "pass" + H.p $ H.input ! A.type_ "password" ! A.style "font-size: 2;" ! A.name "password" -- Error pages showError :: BlogError -> BlogLang -> Html |