errors

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")
   )
 

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")
 

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