diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -1,6 +1,10 @@
 hslua-aeson
 ===========
 
+[![travis build status](https://img.shields.io/travis/tarleb/hslua-aeson/master.svg?style=flat-square)](https://travis-ci.org/tarleb/hslua-aeson)
+[![MIT License](https://img.shields.io/github/license/tarleb/hslua-aeson.svg?style=flat-square)](./LICENSE)
+
+
 Glue to hslua for aeson values.
 
 This provides a `StackValue` instance for aeson's `Value` type. The following
diff --git a/hslua-aeson.cabal b/hslua-aeson.cabal
--- a/hslua-aeson.cabal
+++ b/hslua-aeson.cabal
@@ -1,5 +1,5 @@
 name:                hslua-aeson
-version:             0.1.0.0
+version:             0.1.0.1
 synopsis:            Glue between aeson and hslua
 description:         Please see README.md
 homepage:            https://github.com/tarleb/hslua-aeson#readme
diff --git a/src/Scripting/Lua/Aeson.hs b/src/Scripting/Lua/Aeson.hs
--- a/src/Scripting/Lua/Aeson.hs
+++ b/src/Scripting/Lua/Aeson.hs
@@ -164,6 +164,6 @@
 pushTextHashMap lua hm = do
     let xs = HashMap.toList hm
     Lua.createtable lua (length xs + 1) 0
-    let addValue (k, v) = Lua.push lua k *> Lua.push lua v *>
+    let addValue (k, v) = Lua.push lua k >> Lua.push lua v >>
                           Lua.rawset lua (-3)
     mapM_ addValue xs