Ticket #7232: hsc2hs.patch

File hsc2hs.patch, 839 bytes (added by elaforge, 20 months ago)

patch

  • UtilsCodegen.hs

    diff --git a/UtilsCodegen.hs b/UtilsCodegen.hs
    index 7673dce..117e891 100644
    a b withUtilsObject config outDir outBase f = do 
    6262             -- refer to "FILE" in template-hsc.h as we don't want to 
    6363             -- include <stdio.h> there 
    6464             "int hsc_fputs(const char *s, void *stream) {", 
    65              "    return fputs(s, stream);", 
     65             "    return fputs(s, (FILE *) stream);", 
    6666             "}", 
    6767             "", 
    6868             -- "void" should really be "FILE", but we aren't able to 
    6969             -- refer to "FILE" in template-hsc.h as we don't want to 
    7070             -- include <stdio.h> there 
    7171             "void *hsc_stdout(void) {", 
    72              "    return stdout;", 
     72             "    return (void *) stdout;", 
    7373             "}" 
    7474            ] 
    7575