From 7179f08ff5a009633ad98f867e56289d26492c1b Mon Sep 17 00:00:00 2001
From: "Edward Z. Yang" <ezyang@mit.edu>
Date: Mon, 19 Nov 2012 00:09:37 -0800
Subject: [PATCH] Separate out view hamlet.

Signed-off-by: Edward Z. Yang <ezyang@mit.edu>
---
 backend/Handler/Home.hs       | 14 +-------------
 backend/templates/view.hamlet | 11 +++++++++++
 2 files changed, 12 insertions(+), 13 deletions(-)
 create mode 100644 backend/templates/view.hamlet

diff --git a/backend/Handler/Home.hs b/backend/Handler/Home.hs
index 83350d9..0a96234 100644
--- a/backend/Handler/Home.hs
+++ b/backend/Handler/Home.hs
@@ -67,19 +67,7 @@ getViewR hash = do
         annotMap = IntMap.fromAscListWith (++) (map sliceAnnot annotations)
     let html = do
             setTitle . toHtml $ profileTitle profile
-            [whamlet|
-                     <h1>
-                       <a href=@{HomeR}>
-                         \#{profileTitle profile}
-                     <div>
-                       <code>#{profileJob profile}</code>
-                     <div>
-                       \#{format (profileRunTime profile)} (uploaded #{format (profileUploadTime profile)});
-                       <a href=@{lpath}>download .hp</a>
-                     <div>
-                       \#{profileDescription profile} (<a href=@{EditR hash}>Edit</a>)
-                     <iframe width="100%" height="600px" frameborder="0" src=#{showreel} />
-                        |]
+            $(widgetFile "view")
         pdata = loadProfile hash
         buildSeries (cid, samples) = object [ "cid"  .= cid
                                             , "values" .= array (map makePoint (insertMissing samples timetable))
diff --git a/backend/templates/view.hamlet b/backend/templates/view.hamlet
new file mode 100644
index 0000000..b595894
--- /dev/null
+++ b/backend/templates/view.hamlet
@@ -0,0 +1,11 @@
+<h1>
+  <a href=@{HomeR}>
+    #{profileTitle profile}
+<div>
+  <code>#{profileJob profile}</code>
+<div>
+  #{format (profileRunTime profile)} (uploaded #{format (profileUploadTime profile)});
+  <a href=@{lpath}>download .hp</a>
+<div>
+  #{profileDescription profile} (<a href=@{EditR hash}>Edit</a>)
+<iframe width="100%" height="600px" frameborder="0" src=#{showreel} />