* broken version of Acid State stuff

* AccountState containing data of type Account
* hashString functions

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