X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Rakka%2FResource%2FRender.hs;h=698e789e7467c1ce86fc6b6a0f4c99686f9095c0;hp=df141b13ee2445db2df690fb8094ca54427c520a;hb=3c5211253dc61c31196a47486c538b64c32d8c5e;hpb=b3c3f333cd48bc74eb33f0f21d56a9d1bc65e0ea

diff --git a/Rakka/Resource/Render.hs b/Rakka/Resource/Render.hs
index df141b1..698e789 100644
--- a/Rakka/Resource/Render.hs
+++ b/Rakka/Resource/Render.hs
@@ -155,20 +155,20 @@ handleGetEntity env
                                             | (lang, page) <- xs ]
                             )
                          += ( eelem "pageTitle"
-                              += ( (constA (pageName page) &&& constA pageTitle)
+                              += ( (constA (pageName page) &&& constA (Just page) &&& constA pageTitle)
                                    >>>
                                    formatSubPage env
                                  )
                             )
                          += ( eelem "sideBar"
                               += ( eelem "left"
-                                   += ( (constA (pageName page) &&& constA leftSideBar)
+                                   += ( (constA (pageName page) &&& constA (Just page) &&& constA leftSideBar)
                                         >>>
                                         formatSubPage env
                                       )
                                  )
                               += ( eelem "right"
-                                   += ( (constA (pageName page) &&& constA rightSideBar)
+                                   += ( (constA (pageName page) &&& constA (Just page) &&& constA rightSideBar)
                                         >>>
                                         formatSubPage env
                                       )
@@ -293,20 +293,20 @@ handlePageNotFound env
                          += sattr "name"       name
                          
                          += ( eelem "pageTitle"
-                              += ( (constA name &&& constA pageTitle)
+                              += ( (constA name &&& constA Nothing &&& constA pageTitle)
                                    >>>
                                    formatSubPage env
                                  )
                             )
                          += ( eelem "sideBar"
                               += ( eelem "left"
-                                   += ( (constA name &&& constA leftSideBar)
+                                   += ( (constA name &&& constA Nothing &&& constA leftSideBar)
                                         >>>
                                         formatSubPage env
                                       )
                                  )
                               += ( eelem "right"
-                                   += ( (constA name &&& constA rightSideBar)
+                                   += ( (constA name &&& constA Nothing &&& constA rightSideBar)
                                         >>>
                                         formatSubPage env
                                       )