c2hs-0.24.1: tests/bugs/issue-127/Issue127.chs

module Main where

import Foreign
import Foreign.C.Types

#include "issue127.h"

{#fun tst as ^ {`Int'} -> `Bool'#}

main :: IO ()
main = do
  tst 5 >>= print
  tst (-2) >>= print