- = \ ctx _ -> do BaseURI baseURI <- getSysConf (ctxSysConf ctx)
- let uri = mkAuxiliaryURI baseURI ["trackback"] (ctxPageName ctx)
- return $ ExternalLink uri (Just "Trackback URL")
+ = \ ctx _ -> case ctxPageName ctx of
+ Nothing
+ -> return (Text "No trackbacks for this page.")
+ Just name
+ -> do BaseURI baseURI <- getSysConf (ctxSysConf ctx)
+ let uri = mkAuxiliaryURI baseURI ["trackback"] name
+ return $ ExternalLink uri (Just "Trackback URL")