This commit is contained in:
nek0 2018-09-04 18:16:03 +02:00
parent 481be7aeec
commit 1a2e12010c
3 changed files with 3 additions and 3 deletions

View file

@ -94,7 +94,7 @@ getModifyUserR uId =
$ renderBootstrap3 BootstrapBasicForm $ renderBootstrap3 BootstrapBasicForm
$ modifyUserForm user bs $ modifyUserForm user bs
defaultLayout $ do defaultLayout $ do
setTitleI (ModifyUser (userIdent user)) setTitleI (MsgModifyUser (userIdent user))
$(widgetFile "modifyUser") $(widgetFile "modifyUser")
) )

View file

@ -15,7 +15,7 @@ getNewSupplierR :: Handler Html
getNewSupplierR = do getNewSupplierR = do
(newSupplierWidget, enctype) <- generateFormPost (newSupplierWidget, enctype) <- generateFormPost
$ renderBootstrap3 BootstrapBasicForm newSupplierForm $ renderBootstrap3 BootstrapBasicForm newSupplierForm
defaultLayout $ defaultLayout $ do
setTitleI MsgNewSupplier setTitleI MsgNewSupplier
$(widgetFile "newSupplier") $(widgetFile "newSupplier")

View file

@ -11,7 +11,7 @@ getSupplierActionsR sId = do
case mSup of case mSup of
Just sup -> Just sup ->
defaultLayout $ do defaultLayout $ do
setTitleI (MsgSupplieractions (supplierIdent sup)) setTitleI (MsgSupplierActions (supplierIdent sup))
$(widgetFile "supplierActions") $(widgetFile "supplierActions")
Nothing -> do Nothing -> do
setMessageI MsgSupplierUnknown setMessageI MsgSupplierUnknown