Separate out view hamlet.

Signed-off-by: Edward Z. Yang <ezyang@mit.edu>
ezyang · Nov 19, 2012 · 7179f08 · 7179f08
1 parent 103f777
commit 7179f08
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 13 deletions.
diff --git 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
@@ -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} />