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