diff --git a/Foundation.hs b/Foundation.hs
index 987cc2d..f56228e 100755
--- a/Foundation.hs
+++ b/Foundation.hs
@@ -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
diff --git a/Handler/SupplierActions.hs b/Handler/SupplierActions.hs
index 5decbc5..de78dcd 100755
--- a/Handler/SupplierActions.hs
+++ b/Handler/SupplierActions.hs
@@ -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