blob: 7947ce0ef19fea55ea9f588c57ba731b5531b567 (
plain)
1
2
3
4
5
6
7
8
|
T3319.hs:1:1: Splicing declarations
return
[ForeignD
(ImportF
CCall Unsafe "&" (mkName "foo") (AppT (ConT 'Ptr) (ConT '())))]
======>
T3319.hs:8:3-93
foreign import ccall unsafe "static &foo" foo :: Ptr GHC.Unit.()
|