# HG changeset patch
# User Adam Chlipala <adam@chlipala.net>
# Date 1385068337 18000
# Node ID 2e7f8f7d71d456705ce0a19cb7400bc01d0c4fec
# Parent  d32fb0f7b137b10f67e593610fdfb46547dbcc41
Update for Ur/Web's new tag name resolution

diff -r d32fb0f7b137 -r 2e7f8f7d71d4 remotePager.ur
--- a/remotePager.ur	Sun Jul 29 12:28:46 2012 -0400
+++ b/remotePager.ur	Thu Nov 21 16:12:17 2013 -0500
@@ -13,15 +13,15 @@
 
 fun defaultFormatLbl {First = fLbl, Back = bLbl, Next = nLbl, Last = lLbl} =
     let
-        fun mkLink c txt = fn a => <xml><li onclick={fn _ => a} class={c}><a class={c} onclick={fn _ => return ()}>{[txt]}</a></li></xml>
+        fun mkLink c txt = fn x => <xml><li onclick={fn _ => x} class={c}><a class={c} onclick={fn _ => return ()}>{[txt]}</a></li></xml>
     in
         {Width = 5,
          RangeCtl = {First = mkLink firstCtl fLbl,
                      Back = mkLink backCtl bLbl,
                      Next = mkLink nextCtl nLbl,
                      Last = mkLink lastCtl lLbl},
-         PageCtl = {Unsel = fn n a => <xml><li onclick={fn _ => a}><a onclick={fn _ => return ()}>{[n + 1]}</a></li></xml>,
-                    Sel = fn n a => <xml><li onclick={fn _ => a} class={curPage}><a class={curPage} onclick={fn _ => return ()}>{[n + 1]}</a></li></xml>},
+         PageCtl = {Unsel = fn n x => <xml><li onclick={fn _ => x}><a onclick={fn _ => return ()}>{[n + 1]}</a></li></xml>,
+                    Sel = fn n x => <xml><li onclick={fn _ => x} class={curPage}><a class={curPage} onclick={fn _ => return ()}>{[n + 1]}</a></li></xml>},
          WrapPageCtl = fn x => x,
          Wrap = fn {First = f, Back = b, Pages = p, Next = n, Last = l} => <xml><ul class={rangeCtl}>{f}{b}{p}{n}{l}</ul></xml>}
     end