I agree on all counts! The hex-handling logic here is so straightforward that it's hardly worth bothering with. In fact, my application's code as it stands looks very similar to what you wrote. I'm really asking because I want to be more "fluent" in attoparsec.<div>
<div><br></div><div>So the question remains: is there a way to limit a parser to a finite chunk of input? Perhaps a way to run the 'take n' parser on the input and then run another parser on its result? This smells like monadic behavior, but of course with different semantics than the Monad instance for Parser.</div>
<div><br></div><div>Mike S Craig<br>(908) 328 8030<br>
<br><br><div class="gmail_quote">On Fri, Sep 23, 2011 at 11:23 PM, Evan Laforge <span dir="ltr"><<a href="mailto:qdunkan@gmail.com">qdunkan@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
BTW you probably want 'data Color = Color !Word8 !Word8 !Word8'<br>
<div><div></div><div class="h5"><br>
On Fri, Sep 23, 2011 at 8:21 PM, Evan Laforge <<a href="mailto:qdunkan@gmail.com">qdunkan@gmail.com</a>> wrote:<br>
> On Fri, Sep 23, 2011 at 8:04 PM, Michael Craig <<a href="mailto:mkscrg@gmail.com">mkscrg@gmail.com</a>> wrote:<br>
>> Suppose we want to parse a 24-bit hex color value:<br>
>> input :: ByteString<br>
>> input = "af093c blah blah blah"<br>
>> type Color = (Word8, Word8, Word8)<br>
>><br>
>> Attoparsec.Char8 exports a nice hexadecimal parser, but it consumes all<br>
>> available hex-flavored input. I'd like to make it consume exactly two bytes,<br>
>> so I could write my color parser like this:<br>
>><br>
>> color :: Parser Color<br>
>> color = do<br>
>> r <- hex2<br>
>> g <- hex2<br>
>> b <- hex2<br>
>> return $ Color (r, g, b)<br>
>> hex2 :: Parser Word8<br>
>> hex2 = ???<br>
>><br>
>> So my question is "how do I write hex2?" I could easily rewrite hexadecimal,<br>
>> but it would be nicer to reuse its hex-handling logic.<br>
><br>
> If it's easy enough to write inline, might as well do so. And it's<br>
> fun with Applicative :)<br>
><br>
> hex2 = (+) <$> ((*16) <$> higit) <*> higit<br>
> higit = subtract (fromEnum '0') <$> satisfy isHexDigit<br>
> color = Color <$> hex2 <*> hex2 <*> hex2<br>
><br>
</div></div></blockquote></div><br></div></div>