import Data.List
import Data.Maybe
import Data.Time
+import qualified Data.Time.W3C as W3C
import Network.HTTP.Lucu
import Network.HTTP.Lucu.RFC1123DateTime
import Network.URI hiding (query, fragment)
import Rakka.Storage
import Rakka.SystemConfig
import Rakka.Utils
-import Rakka.W3CDateTime
import Rakka.Wiki.Engine
import System.FilePath
import Text.HyperEstraier hiding (getText)
+= attr "name" (arr hpPageName >>> mkText)
+= attr "lastModified" ( arrIO (utcToLocalZonedTime . hpLastMod)
>>>
- arr formatW3CDateTime
+ arr W3C.format
>>>
mkText
)
+= sattr "class" "date"
+= ( getAttrValue "lastModified"
>>>
- arr (zonedTimeToUTC . fromJust . parseW3CDateTime)
+ arr (zonedTimeToUTC . fromJust . W3C.parse)
>>>
arrIO utcToLocalZonedTime
>>>