Issue32.chs

module Main where

#include "issue32.h"

{#pointer *testStruct as TestStructPtr #}

main :: IO ()
main = do
  x <- {#call makeIt #}
  print =<< ({#get testStruct->a #} x)
  print =<< ({#get testStruct->b #} x)
  print =<< ({#get testStruct->c #} x)