getExitSignal :: CResult -> IO BS.ByteString
getExitSignal ptr = do
  signalPtr <- getExitSignalC ptr
  if signalPtr == nullPtr
    then return ""
    else BS.packCString signalPtr
getExitSignal :: CResult -> IO BS.ByteString
getExitSignal ptr = do
  signalPtr <- getExitSignalC ptr
  if signalPtr == nullPtr
    then return ""
    else BS.packCString signalPtr
getExitSignal ptr = do
  signalPtr <- getExitSignalC ptr
  if signalPtr == nullPtr
    then return ""
    else BS.packCString signalPtr