-- -*-haskell-*-

module Main
where

import C2HS

{#context lib="calls"#}

type TString   = {#type tString#}
type MyStringT = {#type MyStringType#}  -- extract a function type

main :: IO ()
main  = do
	  let barfoo = {#call fun bar#} {#call fun foo#}
	  {#call unsafe baz#} {#call fun foo#} barfoo
	  {#call printString#} {#call fun MyString as myString#}
	  -- test typedef'ed args without argument variable in prototype
	  {#call printString2#} {#call fun MyString as myString#}