Free memory.

Free ptr in Message in messageClose.
Also close socket and terminate context in performance examples.

src/System/ZMQ.hs

@@ -278,7 +278,9 @@ messageOf b = UB.unsafeUseAsCStringLen b $ \(cstr, len) -> do
     return msg
 
 messageClose :: Message -> IO ()
-messageClose = throwErrnoIfMinus1_ "messageClose" . c_zmq_msg_close . msgPtr
+messageClose (Message ptr) = do
+    throwErrnoIfMinus1_ "messageClose" $ c_zmq_msg_close ptr
+    free ptr
 
 messageInit :: IO Message
 messageInit = do

test/perf/local_lat.hs

@@ -11,13 +11,15 @@ main = do
     when (length args /= 3) $ do
         hPutStrLn stderr usage
         exitFailure
-    let bindTo  = args !! 0
-        msgSize = read $ args !! 1 :: Int
-        rounds  = read $ args !! 2
+    let bindTo = args !! 0
+        size   = read $ args !! 1
+        rounds = read $ args !! 2
     c <- ZMQ.init 1 1 False
     s <- ZMQ.socket c ZMQ.Rep
     ZMQ.bind s bindTo
-    loop s rounds msgSize
+    loop s rounds size
+    ZMQ.close s
+    ZMQ.term c
  where
     loop s r sz = unless (r <= 0) $ do
         msg <- ZMQ.receive s []

test/perf/remote_lat.hs

@@ -23,6 +23,8 @@ main = do
     loop s rounds message
     end <- getCurrentTime
     print (diffUTCTime end start)
+    ZMQ.close s
+    ZMQ.term c
  where
     loop s r msg = unless (r <= 0) $ do
         ZMQ.send s msg []