From 0689cd76b7e5e0c8580f497c0c33cb3eaaaaff16 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Wed, 16 Sep 2015 14:40:06 +0200
Subject: [PATCH] showing beverage avatars in restock menu

---
 Handler/Restock.hs       | 1 +
 templates/restock.hamlet | 9 ++++++---
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/Handler/Restock.hs b/Handler/Restock.hs
index 4ad920f..618d6db 100644
--- a/Handler/Restock.hs
+++ b/Handler/Restock.hs
@@ -17,6 +17,7 @@ module Handler.Restock where
 
 import Import
 import Handler.Common
+import Data.Maybe (fromJust)
 
 getRestockR :: Handler Html
 getRestockR = do
diff --git a/templates/restock.hamlet b/templates/restock.hamlet
index 2c009a9..07c7e03 100644
--- a/templates/restock.hamlet
+++ b/templates/restock.hamlet
@@ -5,9 +5,12 @@ $doctype 5
 
 $forall (Entity bId bev) <- beverages
   <article .article>
-    <a href=@{UpstockR bId}>
-      <p>
-        #{beverageIdent bev}
+    $if isNothing (beverageAvatar bev)
+      <a href="@{UpstockR bId}">
+        <p>#{beverageIdent bev}
+    $else
+      <a href="@{UpstockR bId}" style="background-image: url(@{GetAvatarR $ fromJust $ beverageAvatar bev})" .avatar>
+        <p>#{beverageIdent bev}
 
 <article .article #func>
   <a href=@{NewArticleR}>