diff --git a/src/Text/XML/Hexml.hs b/src/Text/XML/Hexml.hs index a861b5b..b71c71c 100644 --- a/src/Text/XML/Hexml.hs +++ b/src/Text/XML/Hexml.hs @@ -49,8 +49,8 @@ foreign import ccall hexml_document_parse :: CString -> CInt -> IO (Ptr CDocumen foreign import ccall hexml_document_free :: Ptr CDocument -> IO () foreign import ccall "&hexml_document_free" hexml_document_free_funptr :: FunPtr (Ptr CDocument -> IO ()) foreign import ccall hexml_node_render :: Ptr CDocument -> Ptr CNode -> CString -> CInt -> IO CInt -foreign import ccall hexml_document_error :: Ptr CDocument -> IO CString -foreign import ccall hexml_document_node :: Ptr CDocument -> IO (Ptr CNode) +foreign import ccall unsafe hexml_document_error :: Ptr CDocument -> IO CString +foreign import ccall unsafe hexml_document_node :: Ptr CDocument -> IO (Ptr CNode) foreign import ccall unsafe hexml_node_children :: Ptr CDocument -> Ptr CNode -> Ptr CInt -> IO (Ptr CNode) foreign import ccall unsafe hexml_node_attributes :: Ptr CDocument -> Ptr CNode -> Ptr CInt -> IO (Ptr CAttr)