Commit 9437ddf5 authored by Simon Marlow's avatar Simon Marlow
Browse files

accept output after fixes to FFI declaration pretty-printing

parent 78c91301
......@@ -2,5 +2,5 @@
T3066.hs:6:0:
Unacceptable argument type in foreign declaration: forall u. X u
When checking declaration:
foreign import ccall safe "static &bla" bla
foreign import ccall safe "static bla" bla
:: (forall u. X u) -> IO ()
......@@ -2,5 +2,5 @@
ccfail001.hs:10:0:
Unacceptable result type in foreign declaration: State# RealWorld
When checking declaration:
foreign import ccall safe "static &foo" foo
:: Int -> State# RealWorld
foreign import ccall safe "static foo" foo
:: Int -> State# RealWorld
ccfail002.hs:10:0:
Unacceptable result type in foreign declaration:
(# Int#, Int#, Int# #)
(# Int#, Int#, Int# #)
When checking declaration:
foreign import ccall unsafe "static &foo" foo
:: Int# -> Int# -> Int# -> (# Int#, Int#, Int# #)
foreign import ccall unsafe "static foo" foo
:: Int# -> Int# -> Int# -> (# Int#, Int#, Int# #)
......@@ -98,7 +98,7 @@ data R1
<document comment>
f :: (C a) => a -> Int
<document comment>
foreign import ccall safe "static header.h &g" g :: Int -> IO CInt
foreign import ccall safe "static header.h g" g :: Int -> IO CInt
<document comment>
h :: Int
h = 42
......@@ -133,7 +133,7 @@ m :: R -> N1 () <document comment> -> IO Int <document comment>
newn :: R <document comment> -> N1 () <document comment> -> IO Int
newn = undefined
<document comment>
foreign import ccall unsafe "static header.h &o" o
foreign import ccall unsafe "static header.h o" o
:: Float <document comment> -> IO Float <document comment>
<document comment>
newp :: Int
......
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