a3dbf78b58357dad013fa271641c7bac8a3aebd9
[ghc-hetmet.git] / ghc / tests / ccall / should_compile / cc003.hs
1 --!!! cc003 -- ccall with unresolved polymorphism (should fail)
2 --!!! not anymore (as of 0.29, result type will default to ())
3 module ShouldCompile where
4
5 fubar :: IO Int
6 fubar = _ccall_ f >>_ccall_ b
7                      --^ result type of f "lost" (never gets generalised)