blob: b9aab05755d5f9df18371f650ac5117815bda2d5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
TH_foreignInterruptible.hs:1:1: Splicing declarations
return
[ForeignD
(ImportF
CCall
Interruptible
"&"
(mkName "foo")
(AppT (ConT 'Ptr) (ConT '())))]
======>
TH_foreignInterruptible.hs:8:3-100
foreign import ccall interruptible "static &foo" foo
:: Ptr GHC.Unit.()
|