From fe5cd6ad6c61eb13ca99acd1b69cd09b84051404 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Wed, 15 Mar 2017 14:47:31 +0100
Subject: Support types

---
 templates/inventoryListing.hamlet | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'templates/inventoryListing.hamlet')

diff --git a/templates/inventoryListing.hamlet b/templates/inventoryListing.hamlet
index 775176d..3be43db 100644
--- a/templates/inventoryListing.hamlet
+++ b/templates/inventoryListing.hamlet
@@ -1,6 +1,7 @@
 <div .table>
   <div .tr .sepBelow>
     <div .th>Item
+    <div .th>Type
     <div .th>Bought
     <div .th>Expires
     <div .th>Opened
@@ -12,7 +13,7 @@
         <div .td>
           <button type=submit>
             Insert
-  $forall Entity itemId Item{..} <- stock
+  $forall WithType (Entity itemId Item{..}) itemType <- stock
     $if Just itemId == (preview updateId =<< formState)
       $with Just UpdateForm{..} <- formState
          <form .tr .color action=@{UpdateItemR fsUpdateId}##{toPathPiece fsUpdateId} method=post enctype=#{fsUpdateEncoding} ##{toPathPiece fsUpdateId}>
@@ -23,6 +24,7 @@
     $else
       <div .tr .color ##{toPathPiece itemId}>
         <div .kind>#{itemKind}
+        <div .type>#{itemType}
         <div .td .day>
           $maybe bought <- itemBought
             #{dayFormat bought}
-- 
cgit v1.2.3