showing beverage avatars in restock menu

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

templates/restock.hamlet

@@ -5,9 +5,12 @@ $doctype 5
 
 $forall (Entity bId bev) <- beverages
   <article .article>
-    <a href=@{UpstockR bId}>
+    $if isNothing (beverageAvatar bev)
-      <p>
+      <a href="@{UpstockR bId}">
-        #{beverageIdent bev}
+        <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}>