annotate tests/makeUrl.ur @ 1066:740b85ef4352

Basis.currentUrl, plus redirect debugging
author Adam Chlipala <adamc@hcoop.net>
date Thu, 10 Dec 2009 15:20:36 -0500
parents 217eb87dde31
children
rev   line source
adamc@1065 1 fun other () = return <xml>Hi!</xml>
adamc@1065 2
adamc@1065 3 fun main () = return <xml>{[Basis.url (main ())]}, {[url (other ())]}</xml>