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
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"
)
+= (getAttrValue "name" >>> mkText)
)
+ += ( eelem "div"
+ += sattr "class" "date"
+ += ( getAttrValue "lastModified"
+ >>>
+ arr (zonedTimeToUTC . fromJust . parseW3CDateTime)
+ >>>
+ arrIO utcToLocalZonedTime
+ >>>
+ arr formatRFC1123DateTime
+ >>>
+ mkText
+ )
+ )
+= ( eelem "p"
+= ( getChildren
>>>