[C2hs] Patch: Don't lowercase existing CamelCase

[Achim Schneider]

Agar (http://libagar.org) uses AG_FunctionFoo as naming convention and
I like to write hooks of the form

{#fun FunctionFoo as ^ ... #}

As it stands, though, c2hs-0.15.1 will lowercase the second F,
unnecessarily.

I attached a patch against c2hs/chs/CHS.hs that fixes this... I'm not
completely sure of it, though, as apathToIdent looks like it could be
important. Anyway, for me the patch does what it's supposed to do.

-- 
(c) this sig last receiving data processing entity. Inspect headers
for copyright history. All rights reserved. Copying, hiring, renting,
performance and/or quoting of this signature prohibited.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: c2hs-tooMuchLowerCase.patch
Type: text/x-patch
Size: 287 bytes
Desc: not available
Url : http://www.haskell.org/pipermail/c2hs/attachments/20090124/2d0626f0/c2hs-tooMuchLowerCase.bin