lucienne-0.0.1: Lucienne/View/ChangePassword.hs

module Lucienne.View.ChangePassword
       (changePassword)
where
  
import           Text.Blaze ((!))
import qualified Text.Blaze.Html4.Strict as H
import qualified Text.Blaze.Html4.Strict.Attributes as A
import           Lucienne.View.Common (Errors,template,stringHtml,form)
import qualified Lucienne.Url as Url

changePassword :: Errors -> H.Html
changePassword errors = 
  template "Change password" [] errors $
  form Url.doChangePassword $
   H.fieldset $ 
    do H.legend "Change password"
       H.table $ 
        do H.tr $
            do H.td $ H.label ! A.for "password" $ stringHtml "Password"
               H.td $ H.input ! A.type_ "password" ! A.name "password" ! A.value ""
           H.tr $
            do H.td $ H.label ! A.for "check_password" $ stringHtml "Password check"
               H.td $ H.input ! A.type_ "password" ! A.name "check_password" ! A.value ""
           H.tr $ H.td ! A.colspan "2" $ 
            H.input ! A.type_ "submit" ! A.value "Change"