[simplelink doesn't depend on templates dir
thomashartman1@gmail.com**20081004104752] hunk ./src/Controller.hs 96
-        paintVHtml . map (\c -> simpleLink (templates rglobs) ("/tutorial/viewprofile?user="++c,c) ) $ consultants
+        paintVHtml . map (\c -> simpleLink ("/tutorial/viewprofile?user="++c,c) ) $ consultants
hunk ./src/Controller.hs 112
-        paintVHtml . map (\c -> simpleLink (templates rglobs) ("/tutorial/viewprofile?user="++c,c) ) $ consultantswanted
+        paintVHtml . map (\c -> simpleLink ("/tutorial/viewprofile?user="++c,c) ) $ consultantswanted
hunk ./src/Controller.hs 168
+             let fs1 = map g fs
+                   where g f = simpleLink (f,f)
hunk ./src/Controller.hs 171
+
hunk ./src/View.hs 91
-simpleLink templates (url,anchortext) = render1 [("url",url),("anchortext",anchortext)] "<a href=$url$>$anchortext$</a>"
+simpleLink :: (String,String) -> String
+simpleLink (url,anchortext) = render1 [("url",url),("anchortext",anchortext)] "<a href=$url$>$anchortext$</a>"
hunk ./src/View.hs 156
-paintUserJobsTable rglobs postedBy rsUserJobs currP resPP= 
+paintUserJobsTable rglobs postedBy rsUserJobs currP resPP = 
hunk ./src/View.hs 158
-                       [ simpleLink (templates rglobs) ("/tutorial/viewjob?user="++postedBy++"&job=" ++ j,j)
-                         , simpleLink (templates rglobs) ("/tutorial/editjob?user="++postedBy++"&job=" ++ j,"edit")
-                         , simpleLink (templates rglobs) ("/tutorial/deletejob?user="++postedBy++"&job=" ++ j,"delete")
+                       [ simpleLink ("/tutorial/viewjob?user="++postedBy++"&job=" ++ j,j)
+                         , simpleLink ("/tutorial/editjob?user="++postedBy++"&job=" ++ j,"edit")
+                         , simpleLink ("/tutorial/deletejob?user="++postedBy++"&job=" ++ j,"delete")
hunk ./src/View.hs 173
-                       [ simpleLink (templates rglobs) ("/tutorial/viewjob?user="++postedBy++"&job=" ++ j,j)
+                       [ simpleLink ("/tutorial/viewjob?user="++postedBy++"&job=" ++ j,j)
hunk ./src/View.hs 175
-                         , simpleLink (templates rglobs) ("/tutorial/viewprofile?user="++postedBy, postedBy )
+                         , simpleLink ("/tutorial/viewprofile?user="++postedBy, postedBy )
hunk ./src/View.hs 182
-  let userlink = simpleLink (templates rglobs) ("/tutorial/viewprofile?user=" ++ pBy,pBy)
+  let userlink = simpleLink ("/tutorial/viewprofile?user=" ++ pBy,pBy)