blob: c16b6009eb217a8ab01ad677ecd0ff34a3bca934 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
module ShouldCompile where
import Foreign
import Foreign.C
-- extra space before the function name:
foreign import ccall unsafe " g_get_application_name"
g_get_application_name :: (IO (Ptr CChar))
-- and after:
foreign import ccall unsafe "g_get_application_name "
g_get_application_name' :: (IO (Ptr CChar))
|
