testsuite/tests/driver/linkwhole/Handles.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

module Handles
  ( hsNewSOHandle
  ) where

import Foreign

import Types

import MyCode

foreign export ccall "hs_soHandles"
  hsNewSOHandle :: SOHandleExport

hsNewSOHandle :: SOHandleExport
hsNewSOHandle = newStablePtr SOHandles
  { someData = "I'm a shared object"
  , someFn = myFunction
  }