Ok, I pushed some patches to PathInfo for the parsec stuff. It now requires parsec 3.1.0 (which is sort of a problem, but oh well).<div><br></div><div>I change the pToken function so that it tracks the error position better, and updated showParseError to use that information better. I also added a function:</div>
<div><br></div><div>p2u :: Parser a -&gt; URLParser a</div><div><br></div><div>so now if you write:</div><div><br></div><div><div>test :: IO ()</div><div>test = </div><div>  let segments = [&quot;foo&quot;, &quot;hi&quot;, &quot;there&quot;, &quot;world&quot;] in</div>
<div>  case parse testp (show segments) segments of</div><div>    (Left e) -&gt; putStrLn $ showParseError e</div><div>    (Right r) -&gt; print r</div><div>  </div><div>testp :: URLParser (Char, String, String)</div><div>
testp =  </div><div>  do segment &quot;foo&quot;</div><div>     st &lt;- p2u (char &#39;h&#39; &gt;&gt; char &#39;o&#39;)</div><div>     sg &lt;- anySegment</div><div>     sg&#39; &lt;- anySegment</div><div>     return (st,sg, sg&#39;)</div>
<div><br></div><div>You will get:</div><div><br></div><div><div>*Web.Routes.PathInfo&gt; test</div><div>[&quot;foo&quot;,&quot;hi&quot;,&quot;there&quot;,&quot;world&quot;] (segment 2 character 2): </div><div>unexpected &quot;i&quot;</div>
<div>expecting &quot;o&quot;</div><div>*Web.Routes.PathInfo&gt; </div><div><br></div><div>This seems nice? The error tells you the segment and character offset in the segment, and you can embed normal parsers from Text.Parsec.Char into the parent parser and the errors in the Char parser give the correct character offset.</div>
<div><br></div><div>One unresolved issue is if the sub-parser passed to p2u should be required to consume the entire segment or not. I am thinking that it should be required to consume the entire segment -- though the current code does not work that way.</div>
<div><br></div><div>- jeremy</div></div></div><div><br><div class="gmail_quote">On Sat, Mar 27, 2010 at 9:17 AM, Chris Eidhof <span dir="ltr">&lt;<a href="mailto:chris@eidhof.nl">chris@eidhof.nl</a>&gt;</span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
There&#39;s probably a better way, but I guess I would write it in a similar way.<br>
<font color="#888888"><br>
-chris<br>
</font><div><div></div><div class="h5"><br>
On 26 mrt 2010, at 23:04, Jeremy Shaw wrote:<br>
<br>
&gt; Hello,<br>
&gt;<br>
&gt; Is there some clean way to implement a function like:<br>
&gt;<br>
&gt; c2s :: GenParser Char () a -&gt; GenParser String () a<br>
&gt;<br>
&gt; so that we can use Char parsers inside the URL Parser?<br>
&gt;<br>
&gt; the trivial implementation would be something like:<br>
&gt;<br>
&gt; <a href="http://moonpatio.com:8080/fastcgi/hpaste.fcgi/view?id=8965#a8965" target="_blank">http://moonpatio.com:8080/fastcgi/hpaste.fcgi/view?id=8965#a8965</a><br>
&gt;<br>
&gt; but that does not do a very good job of reporting the position of parse errors.<br>
&gt;<br>
&gt; - jeremy<br>
&gt;<br>
&gt; On Fri, Mar 26, 2010 at 4:11 PM, Chris Eidhof &lt;<a href="mailto:chris@eidhof.nl">chris@eidhof.nl</a>&gt; wrote:<br>
&gt; Hey,<br>
&gt;<br>
&gt; I&#39;ve added a darcs patch (I hope it worked, I&#39;m a darcs newbie) to switch the URL parser to parsec. This simplifies the code a lot. I&#39;ve used String&#39;s (i.e. the URL path components) as tokens for the parser. What do you guys think?<br>

&gt;<br>
&gt; I&#39;m sorry I haven&#39;t been replying to the type-safe URL handling, I was busy with writing this week. The discussion has become quite large! I&#39;ll see if I can catch up somewhere this weekend.<br>
&gt;<br>
&gt; -chris<br>
&gt;<br>
&gt;<br>
&gt;<br>
<br>
</div></div></blockquote></div><br></div>