packages feed

c2hs-0.18.1: tests/bugs/issue-51/Issue51_nonGNU.chs

module Main where

import Foreign.C

{#nonGNU#}
#include "issue51.h"

foo :: CInt -> CInt
#ifdef __GNUC__
foo = {#call pure fooGnu#}
#else
foo = {#call pure fooNonGnu#}
#endif

main :: IO ()
main = print $ foo 0