diff --git a/Handler/NewUser.hs b/Handler/NewUser.hs index d0f4b8c..a71bab6 100644 --- a/Handler/NewUser.hs +++ b/Handler/NewUser.hs @@ -94,7 +94,7 @@ getModifyUserR uId = $ renderBootstrap3 BootstrapBasicForm $ modifyUserForm user bs defaultLayout $ do - setTitleI (ModifyUser (userIdent user)) + setTitleI (MsgModifyUser (userIdent user)) $(widgetFile "modifyUser") ) diff --git a/Handler/Supplier.hs b/Handler/Supplier.hs index 5dcd007..e2d782e 100644 --- a/Handler/Supplier.hs +++ b/Handler/Supplier.hs @@ -15,7 +15,7 @@ getNewSupplierR :: Handler Html getNewSupplierR = do (newSupplierWidget, enctype) <- generateFormPost $ renderBootstrap3 BootstrapBasicForm newSupplierForm - defaultLayout $ + defaultLayout $ do setTitleI MsgNewSupplier $(widgetFile "newSupplier") diff --git a/Handler/SupplierActions.hs b/Handler/SupplierActions.hs index db376d2..ac813b7 100644 --- a/Handler/SupplierActions.hs +++ b/Handler/SupplierActions.hs @@ -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