{-# LINE 1 "src/Shaderc/CompilationResult/Core.hsc" #-} {-# OPTIONS_GHC -Wall -fno-warn-tabs #-} module Shaderc.CompilationResult.Core where import Foreign.Ptr import Foreign.C.Types import Foreign.C.String import Data.Word import Language.SpirV.Shaderc.Exception.Enum data Tag type T = Ptr Tag foreign import ccall "shaderc_result_release" release :: T -> IO () foreign import ccall "shaderc_result_get_length" getLength :: T -> IO Word64 {-# LINE 21 "src/Shaderc/CompilationResult/Core.hsc" #-} foreign import ccall "shaderc_result_get_num_warnings" getNumWarnings :: T -> IO Word64 {-# LINE 24 "src/Shaderc/CompilationResult/Core.hsc" #-} foreign import ccall "shaderc_result_get_num_errors" getNumErrors :: T -> IO Word64 {-# LINE 27 "src/Shaderc/CompilationResult/Core.hsc" #-} foreign import ccall "shaderc_result_get_compilation_status" getCompilationStatus :: T -> IO CompilationStatus foreign import ccall "shaderc_result_get_bytes" getBytes :: T -> IO (Ptr CChar) foreign import ccall "shaderc_result_get_error_message" getErrorMessage :: T -> IO CString