Source

haskellblog / src / Blog / Templates.hs

Diff from to

File src/Blog/Templates.hs

 postTemplateInfo :: P.Post -> Map.Map String ToSElemD
 postTemplateInfo p = Map.fromList [ ("title", ToSElemD $ P.title p)
                                   , ("date", ToSElemD $ showDate $ P.timestamp p)
-                                  , ("summary", ToSElemD $ P.summary_formatted p)
-                                  , ("full", ToSElemD $ P.post_formatted p)
+                                  , ("summary", ToSElemD $ P.summaryFormatted p)
+                                  , ("full", ToSElemD $ P.postFormatted p)
                                   , ("url", ToSElemD $ postUrl p)
                                   , ("commentsOpen", ToSElemD $ P.comments_open p)
                                   , ("adminUrl", ToSElemD $ adminEditPostUrl p)
                                       , ("formattedName", ToSElemD $ formatName $ Cm.name cm)
                                       , ("isAuthor", ToSElemD $ Cm.name cm == utf8 Settings.blog_author_name)
                                       , ("date", ToSElemD $ showDate $ Cm.timestamp cm)
-                                      , ("textFormatted", ToSElemD $ Cm.textformatted cm)
+                                      , ("textFormatted", ToSElemD $ Cm.textFormatted cm)
                                       , ("email", ToSElemD $ Cm.email cm)
                                       , ("uid", ToSElemD $ Cm.uid cm)
                                       , ("hidden", ToSElemD $ Cm.hidden cm)