1 files changed, 2 insertions, 1 deletions
diff --git a/bragi/bar.hs b/bragi/bar.hs
index 64650779..61d24119 100755
--- a/bragi/bar.hs
+++ b/bragi/bar.hs
@@ -123,7 +123,8 @@ mkYesod "BarInventory" [parseRoutes|
 /#ItemId/delete DeleteItemR POST
 |]
-instance Yesod BarInventory
+instance Yesod BarInventory where
+  approot = guessApproot
 instance RenderMessage BarInventory FormMessage where
  renderMessage _ _ = defaultFormMessage

diff --git a/bragi/bar.hs b/bragi/bar.hs index 64650779..61d24119 100755 --- a/bragi/bar.hs +++ b/bragi/bar.hs
@@ -123,7 +123,8 @@ mkYesod "BarInventory" [parseRoutes\|
123	/#ItemId/delete DeleteItemR POST	123	/#ItemId/delete DeleteItemR POST
124	\|]	124	\|]
125		125
126	instance Yesod BarInventory	126	instance Yesod BarInventory where
		127	approot = guessApproot
127		128
128	instance RenderMessage BarInventory FormMessage where	129	instance RenderMessage BarInventory FormMessage where
129	renderMessage _ _ = defaultFormMessage	130	renderMessage _ _ = defaultFormMessage