Fix ndmitchell#10: Import _error and _node as unsafe

dbeacham · May 22, 2017 · 535fc35 · 535fc35
1 parent ae5b601
commit 535fc35
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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)