diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,3 +1,6 @@
 # Changelog for aws-lambda-haskell-runtime-wai
 
-## Unreleased changes
+## 1.0.1
+
+* Removed forgotten print statements
+* Applied a [temporary hotfix](https://github.com/eir-forsakring/aws-lambda-haskell-runtime-wai/pull/4) for handling query parameters
diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -1,4 +1,4 @@
-# aws-lambda-haskell-runtime-wai ![Haskell CI](https://github.com/eir-forsakring/aws-lambda-haskell-runtime-wai/workflows/Haskell%20CI/badge.svg)
+# aws-lambda-haskell-runtime-wai [![Hackage](https://img.shields.io/hackage/v/aws-lambda-haskell-runtime-wai.svg?style=flat)](http://hackage.haskell.org/package/aws-lambda-haskell-runtime-wai) ![Haskell CI](https://github.com/eir-forsakring/aws-lambda-haskell-runtime-wai/workflows/Haskell%20CI/badge.svg)
 
 ## Quick start
 
@@ -26,3 +26,5 @@
   MyAppConfig
     { getWaiApp :: Application }
 ```
+
+For a complete example see [theam/aws-lambda-haskell-runtime/tree/master/examples/wai-app](https://github.com/theam/aws-lambda-haskell-runtime/tree/master/examples/wai-app)
diff --git a/aws-lambda-haskell-runtime-wai.cabal b/aws-lambda-haskell-runtime-wai.cabal
--- a/aws-lambda-haskell-runtime-wai.cabal
+++ b/aws-lambda-haskell-runtime-wai.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 84d5705be40077a09e34d445f54b862f58447fa5abac05fd535936a3196c6bbb
+-- hash: 498d2ba264befe7e4ff8899000c03f243a6c66ca69f706adf0d7feea4addeaa9
 
 name:           aws-lambda-haskell-runtime-wai
-version:        1.0.0
+version:        1.0.1
 synopsis:       Run wai applications on AWS Lambda
 description:    Please see the README on GitHub at <https://github.com/eir-forsakring/aws-lambda-haskell-runtime-wai#readme>
 category:       AWS
diff --git a/src/Aws/Lambda/Wai.hs b/src/Aws/Lambda/Wai.hs
--- a/src/Aws/Lambda/Wai.hs
+++ b/src/Aws/Lambda/Wai.hs
@@ -48,14 +48,10 @@
 
   (status, headers, body) <- processRequest waiApplication waiRequest >>= readResponse
 
-  print $ "Working: " <> ("Something went wai" :: ByteString)
-  print $ "Actual response body (before decodeUtf8'): " <> body
-
   if BS.null body
   then return . pure . wrapInResponse (H.statusCode status) headers $ mempty
   else case decodeUtf8' body of
-    Right responseBodyText -> do
-        print $ "After decoding in wai: " <> responseBodyText
+    Right responseBodyText ->
         return . pure . wrapInResponse (H.statusCode status) headers $ responseBodyText
     Left err -> error "Expected a response body that is valid UTF-8."
 
@@ -118,10 +114,10 @@
     Just bs -> pure bs
     Nothing -> pure BS.empty
 
-toQueryStringParameters :: Maybe [(Text, Maybe Text)] -> [H.QueryItem]
-toQueryStringParameters (Just params@(p:ps)) =
-  let toQueryItem (key, valueMay) = (encodeUtf8 key, encodeUtf8 <$> valueMay)
-  in map toQueryItem params
+toQueryStringParameters :: Maybe (HMap.HashMap Text Text) -> [H.QueryItem]
+toQueryStringParameters (Just params) =
+  let toQueryItem (key, value) = (encodeUtf8 key, Just $ encodeUtf8 value)
+  in map toQueryItem $ HMap.toList params
 toQueryStringParameters _ = []
 
 parseIp :: Maybe Text -> IO Socket.SockAddr