import Data.Set (Set)
import qualified Data.Set as S
import Data.Time
+import qualified Data.Time.W3C as W3C
import Network.HTTP.Lucu
import Network.HTTP.Lucu.Utils
import Network.URI
import Rakka.Storage.DefaultPage
import Rakka.Storage.Repos
import Rakka.Storage.Types
-import Rakka.W3CDateTime
import Subversion.Types
import Subversion.FileSystem
import Subversion.Repository
liftM (read . fromJust)
(getDocAttr index docId "rakka:revision")
lastMod <- unsafeInterleaveIO $
- liftM (zonedTimeToUTC . fromJust . parseW3CDateTime . fromJust)
+ liftM (zonedTimeToUTC . fromJust . W3C.parse . fromJust)
(getDocAttr index docId "@mdate")
summary <- unsafeInterleaveIO $
getDocAttr index docId "rakka:summary"