Commit b5855c39 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-08-27 11:34:10 by simonmar]

Add test for recursive newtypes and foreign imports, from Manuel.
parent fe4151bc
...@@ -21,3 +21,4 @@ test "cc007" { myvtc("") } ...@@ -21,3 +21,4 @@ test "cc007" { myvtc("") }
test "cc008" { myvtc("") } test "cc008" { myvtc("") }
test "cc009" { myvtc("") } test "cc009" { myvtc("") }
test "cc010" { myvtc("") } test "cc010" { myvtc("") }
test "cc011" { myvtc("") }
module ShouldCompile where
import Foreign
-- !!! test that a recursive newtype can be used as an argument or result
-- type of a foreign import.
newtype T = T (Ptr T)
foreign import ccall foo :: T -> IO T
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