nek0/yammat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

errors

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Handler/NewUser.hs
View file

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

2
Handler/Supplier.hs
View file

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

2
Handler/SupplierActions.hs
View file

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