Fixed warnings in Foundation and Handler.SupplierActions
This commit is contained in:
parent
625c0cfd9b
commit
926a8b5bd8
2 changed files with 3 additions and 0 deletions
|
@ -69,6 +69,7 @@ instance HasHttpManager App where
|
||||||
|
|
||||||
mkMessage "App" "messages" "de"
|
mkMessage "App" "messages" "de"
|
||||||
|
|
||||||
|
renderMessage' :: (RenderMessage (HandlerSite m) message, MonadHandler m) => message -> m Text
|
||||||
renderMessage' e = do
|
renderMessage' e = do
|
||||||
m <- getYesod
|
m <- getYesod
|
||||||
l <- languages
|
l <- languages
|
||||||
|
|
|
@ -3,6 +3,7 @@ module Handler.SupplierActions where
|
||||||
import Import
|
import Import
|
||||||
import Handler.Common
|
import Handler.Common
|
||||||
import qualified Data.Text as T
|
import qualified Data.Text as T
|
||||||
|
import Text.Blaze
|
||||||
|
|
||||||
getSupplierActionsR :: SupplierId -> Handler Html
|
getSupplierActionsR :: SupplierId -> Handler Html
|
||||||
getSupplierActionsR sId = do
|
getSupplierActionsR sId = do
|
||||||
|
@ -69,6 +70,7 @@ getSupplierDigestR sId = do
|
||||||
redirect SupplierR
|
redirect SupplierR
|
||||||
|
|
||||||
-- tableLayout :: Widget -> WidgetT site0 IO ()
|
-- tableLayout :: Widget -> WidgetT site0 IO ()
|
||||||
|
tableLayout :: WidgetT App IO () -> HandlerT App IO Markup
|
||||||
tableLayout widget = do
|
tableLayout widget = do
|
||||||
cont <- widgetToPageContent $ do
|
cont <- widgetToPageContent $ do
|
||||||
$(combineStylesheets 'StaticR
|
$(combineStylesheets 'StaticR
|
||||||
|
|
Loading…
Reference in a new issue