Hi,

The following code works:

> type ServiceMainClosure = DWORD -> IO ()
>
> foreign import ccall "wrapper"
> mkServiceMainClosure :: ServiceMainClosure -> IO (FunPtr ServiceMainClosure)

But the following doesn't:

> type ServiceMainClosure = DWORD -> [String] -> IO ()
>
> foreign import ccall "wrapper"
> mkServiceMainClosure :: ServiceMainClosure -> IO (FunPtr ServiceMainClosure)

System\Win32\Service.hsc:108:8: parse error on input `import'

What can I do to get this to work?

Thanks

-John