.searchResult .date

[Rakka.git] / Rakka / Resource / Search.hs

diff --git a/Rakka/Resource/Search.hs b/Rakka/Resource/Search.hs
index 20f51c6540931d79ae3c1cae1e1059d5f331a79d..6624e9e8baeafcd2f44c9a2d57c4c777be7216f2 100644 (file)
--- a/Rakka/Resource/Search.hs
+++ b/Rakka/Resource/Search.hs
@@ -13,6 +13,7 @@ import           Control.Monad.Trans
 import           Data.Maybe
 import           Data.Time
 import           Network.HTTP.Lucu
+import           Network.HTTP.Lucu.RFC1123DateTime
 import           Network.URI hiding (query, fragment)
 import           Rakka.Environment
 import           Rakka.Page
@@ -251,7 +252,7 @@ searchResultToXHTML env
                  uniqueNamespacesFromDeclAndQNames
                ) ) -<< tree
     where
-      formatItem :: (ArrowXml a, ArrowChoice a) => URI -> a XmlTree XmlTree
+      formatItem :: (ArrowXml a, ArrowChoice a, ArrowIO a) => URI -> a XmlTree XmlTree
       formatItem baseURI
           = ( eelem "div"
               += sattr "class" "searchResult"
@@ -264,6 +265,19 @@ searchResultToXHTML env
                                   )
                    += (getAttrValue "name" >>> mkText)
                  )
+              += ( eelem "div"
+                   += sattr "class" "date"
+                   += ( getAttrValue "lastModified"
+                        >>>
+                        arr (zonedTimeToUTC . fromJust . parseW3CDateTime)
+                        >>>
+                        arrIO utcToLocalZonedTime
+                        >>>
+                        arr formatRFC1123DateTime
+                        >>>
+                        mkText
+                      )
+                 )
               += ( eelem "p"
                    += ( getChildren
                         >>>