-< fpath
page <- parseXmlizedPage -< (name, tree)
- case page of
- Redirection _ _ _ _ _
- -> returnA -< page {
- redirRevision = 0
- , redirLastMod = lastMod
- }
-
- Entity _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
- -> returnA -< page {
- entityRevision = 0
- , entityLastMod = lastMod
- }
+ if isEntity page then
+ returnA -< page {
+ entityRevision = 0
+ , entityLastMod = lastMod
+ }
+ else
+ returnA -< page {
+ redirRevision = 0
+ , redirLastMod = lastMod
+ }