readResult :: CResult -> IO Result
readResult resultC =  Result
                  <$> getOut resultC
                  <*> getErr resultC
                  <*> readResultExit resultC
readResult :: CResult -> IO Result
readResult resultC =  Result
                  <$> getOut resultC
                  <*> getErr resultC
                  <*> readResultExit resultC
readResult resultC =  Result
                  <$> getOut resultC
                  <*> getErr resultC
                  <*> readResultExit resultC