Attempt to fix the nightly builds (untested):
Use our forefathers' syntax to import rawSystem
0 -> return ExitSuccess
n -> return (ExitFailure n)
-foreign import ccall unsafe "rawSystem"
+foreign import ccall "rawSystem" unsafe
c_rawSystem :: CString -> Ptr CString -> IO Int
#else
escape '\\' str = '\\' : '\\' : str
escape c str = c : str
-foreign import ccall unsafe "rawSystem"
+foreign import ccall "rawSystem" unsafe
c_rawSystem :: CString -> IO Int
#endif