Fix #10: Decorate common FFI calls as unsafe

ndmitchell · May 22, 2017 · dff7834 · dff7834
1 parent 3b65521
commit dff7834
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/src/Text/XML/Hexml.hs b/src/Text/XML/Hexml.hs
@@ -49,14 +49,14 @@ 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 hexml_node_children :: Ptr CDocument -> Ptr CNode -> Ptr CInt -> IO (Ptr CNode)
-foreign import ccall hexml_node_attributes :: Ptr CDocument -> Ptr CNode -> Ptr CInt -> IO (Ptr CAttr)
+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)
 
-foreign import ccall hexml_node_child :: Ptr CDocument -> Ptr CNode -> Ptr CNode -> CString -> CInt -> IO (Ptr CNode)
-foreign import ccall hexml_node_attribute :: Ptr CDocument -> Ptr CNode -> CString -> CInt -> IO (Ptr CAttr)
+foreign import ccall unsafe hexml_node_child :: Ptr CDocument -> Ptr CNode -> Ptr CNode -> CString -> CInt -> IO (Ptr CNode)
+foreign import ccall unsafe hexml_node_attribute :: Ptr CDocument -> Ptr CNode -> CString -> CInt -> IO (Ptr CAttr)
 
 -- | A node in an XML document, created by 'parse', then calling functions such
 --   as 'children' on that initial 'Node'.