From 1a2e12010c51cb16db5c9ca52fe37856044e56c9 Mon Sep 17 00:00:00 2001 From: nek0 Date: Tue, 4 Sep 2018 18:16:03 +0200 Subject: [PATCH] errors --- Handler/NewUser.hs | 2 +- Handler/Supplier.hs | 2 +- Handler/SupplierActions.hs | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) 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