refactor: Adapt to Tox_System changes.

Author: iphydf

Diff for: src/Network/Tox/C/Tox.hs

@@ -285,14 +285,15 @@ foreign  import ccall tox_events_iterate :: ToxPtr -> Bool -> CErr ErrEventsIter
 foreign  import ccall tox_events_bytes_size :: ToxEvents -> IO Word32
 foreign  import ccall tox_events_get_bytes :: ToxEvents -> CString -> IO ()
 
-foreign  import ccall tox_events_load :: CString -> Word32 -> IO ToxEvents
-foreign  import ccall tox_events_free :: ToxEvents -> IO ()
+foreign import ccall tox_events_load :: ToxSystem -> CString -> Word32 -> IO ToxEvents
+foreign import ccall tox_events_free :: ToxEvents -> IO ()
 
 toxEventsToPtr :: [Event] -> IO ToxEvents
-toxEventsToPtr events =
-    let encoded = MP.pack events in
+toxEventsToPtr events = do
+    let encoded = MP.pack events
+    sys <- os_system
     BS.useAsCStringLen (LBS.toStrict encoded) $ \(ptr, len) ->
-        tox_events_load ptr (fromIntegral len)
+        tox_events_load sys ptr (fromIntegral len)
 
 toxEventsFromPtr :: ToxEvents -> IO (Either String [Event])
 toxEventsFromPtr evPtr = do