From 926a8b5bd828b3f9483172eeff404d8f973f9d95 Mon Sep 17 00:00:00 2001
From: Braden Walters <vc@braden-walters.info>
Date: Thu, 21 Jan 2016 22:32:25 +0100
Subject: [PATCH] Fixed warnings in Foundation and Handler.SupplierActions

---
 Foundation.hs              | 1 +
 Handler/SupplierActions.hs | 2 ++
 2 files changed, 3 insertions(+)

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