From f8b325748a3631df00841f3524b6e1f95a4e30f4 Mon Sep 17 00:00:00 2001
From: Clint Adams <clint@softwarefreedom.org>
Date: Fri, 19 Jul 2013 15:25:08 -0400
Subject: Update to newer Yesod.

---
 templates/userpage.hamlet | 22 ++++++++++++++++++----
 1 file changed, 18 insertions(+), 4 deletions(-)

(limited to 'templates/userpage.hamlet')

diff --git a/templates/userpage.hamlet b/templates/userpage.hamlet
index 27353d0..4205d2c 100644
--- a/templates/userpage.hamlet
+++ b/templates/userpage.hamlet
@@ -1,21 +1,35 @@
 <h1>#{username}
 
-$if isUser
+$forall Entity _ emp <- employments
+  <p>From #
+    <strong>
+      #{show (employmentStartDate emp)}
+    $maybe enddate <- employmentEndDate emp
+      \ until #
+      <strong>
+        #{show enddate}
+
+$if isThisUser
   <p>
     <form method=post action=@{UserR cid}#form enctype=#{formEnctype}>
       ^{formWidget}
       <input type="submit" value="Submit time entry">
 $else
 
+
 <table>
     <tr>
       <th>Category
       <th>Hours
       <th>Date
-  $forall (a,b,c) <- entries
+      <th>Note
+  $forall (a,b,c,d,e) <- entries
     <tr .timeentry>
-      <td>#{a}
-      <td>#{b}
+      <td>
+        <a href=@{CategoryR a}>
+          #{timeCategoryName b}
       <td>#{c}
+      <td>#{d}
+      <td>#{e}
 
 ^{pageNavWidget}
-- 
cgit v1.2.3