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

Fixed warnings in Foundation and Handler.SupplierActions

Browse source
This commit is contained in:
Braden Walters 2016-01-21 22:32:25 +01:00
parent 625c0cfd9b
commit 926a8b5bd8
2 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
Foundation.hs
View file

@ -69,6 +69,7 @@ instance HasHttpManager App where
mkMessage "App" "messages" "de"
renderMessage' :: (RenderMessage (HandlerSite m) message, MonadHandler m) => message -> m Text
renderMessage' e = do
m <- getYesod
l <- languages

2
Handler/SupplierActions.hs
View file

@ -3,6 +3,7 @@ module Handler.SupplierActions where
import Import
import Handler.Common
import qualified Data.Text as T
import Text.Blaze
getSupplierActionsR :: SupplierId -> Handler Html
getSupplierActionsR sId = do
@ -69,6 +70,7 @@ getSupplierDigestR sId = do
redirect SupplierR
-- tableLayout :: Widget -> WidgetT site0 IO ()
tableLayout :: WidgetT App IO () -> HandlerT App IO Markup
tableLayout widget = do
cont <- widgetToPageContent $ do
$(combineStylesheets 'StaticR