Commit d58ee913 authored by Simon Marlow's avatar Simon Marlow
Browse files

fix expected output

parent 41b75520
TH_foreignInterruptible.hs:1:1:
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.()
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.()
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment