[clckwrks: added emptyTemplate Jeremy Shaw **20140126192910 Ignore-this: b934644c528241eeedd5ae7a7eb09f4 ] hunk ./clckwrks/Clckwrks/Admin/Template.hs 58 +emptyTemplate :: + ( Happstack m + , EmbedAsChild (ClckT url m) headers + , EmbedAsChild (ClckT url m) body + ) => String -> headers -> body -> ClckT url m Response +emptyTemplate title headers body = do + siteName <- (fromMaybe "Your Site") <$> query GetSiteName + toResponse <$> (unXMLGenT $ + + + + + + + + + + <% title %> + <% headers %> + + +
+
+
+
<% siteName %>
+
+
+
+ +
+
+
+-- <% sidebar %> +
+
+ <% body %> +
+
+
+ + ) + +