+ where
+ addTB :: TrackBack -> Page -> Resource ()
+ addTB tbParam page
+ | isRedirect page
+ = do BaseURI baseURI <- getSysConf (envSysConf env)
+ redirect TemporaryRedirect (mkPageURI baseURI $ redirName page)
+ | otherwise
+ = do tbListM <- return . fromMaybe [] =<< getAttachment (envStorage env) (pageName page) "trackbacks" Nothing
+ st <- putAttachment (envStorage env) Nothing Nothing (pageName page) "trackbacks" (tbParam : tbListM)
+ setStatus st