diff --git a/c-mosquitto.cabal b/c-mosquitto.cabal
--- a/c-mosquitto.cabal
+++ b/c-mosquitto.cabal
@@ -1,5 +1,5 @@
 name:                c-mosquitto
-version:             0.1.2.0
+version:             0.1.3.0
 synopsis:            Simpe mosquito MQTT binding able to work with the Amazons IoT
 -- description:
 homepage:            https://github.com/tolysz/c-mosquitto#readme
diff --git a/src/Network/Mosquitto.hs b/src/Network/Mosquitto.hs
--- a/src/Network/Mosquitto.hs
+++ b/src/Network/Mosquitto.hs
@@ -186,6 +186,13 @@
             );
        }|]
 
+loop :: Mosquitto a -> IO ()
+loop mosq =
+  withPtr mosq $ \pMosq ->
+    [C.exp|void{
+             mosquitto_loop($(struct mosquitto *pMosq), -1, 1)
+        }|]
+
 loopForever :: Mosquitto a -> IO ()
 loopForever mosq =
   withPtr mosq $ \pMosq ->