Support types

1 files changed, 3 insertions, 1 deletions

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}