diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,8 @@
+0.6.0.2
+-------
+
+* Ticket #53. Don't add a "query_" prefix to query params
+
 0.6.0.1
 -------
 
diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -4,7 +4,7 @@
 
 Generate Elm functions to query your Servant API!
 
-Elm type generation coutesy of [krisajenkins/elm-export](https://github.com/krisajenkins/elm-export).
+Elm type generation coutesy of [elm-bridge](http://hackage.haskell.org/package/elm-bridge).
 
 ## Installation
 
diff --git a/servant-elm.cabal b/servant-elm.cabal
--- a/servant-elm.cabal
+++ b/servant-elm.cabal
@@ -1,5 +1,5 @@
 name:                servant-elm
-version:             0.6.0.1
+version:             0.6.0.2
 synopsis:            Automatically derive Elm functions to query servant webservices.
 description:         Please see README.md
 homepage:            http://github.com/mattjbray/servant-elm#readme
diff --git a/src/Servant/Elm/Internal/Generate.hs b/src/Servant/Elm/Internal/Generate.hs
--- a/src/Servant/Elm/Internal/Generate.hs
+++ b/src/Servant/Elm/Internal/Generate.hs
@@ -306,7 +306,6 @@
 
     returnType :: Maybe Doc
     returnType = do
-      result <- fmap elmTypeRef $ request ^. F.reqReturnType
       pure ("Cmd msg")
 
 
@@ -401,7 +400,7 @@
                 "String.fromInt >> "
           in
               "[" <+> (if wrapped then elmName else "Just" <+> elmName) <> line <>
-                (indent 4 ("|> Maybe.map" <+> parens (toStringSrc <> "Url.Builder.string" <+> dquotes elmName)))
+                (indent 4 ("|> Maybe.map" <+> parens (toStringSrc <> "Url.Builder.string" <+> dquotes name)))
                 <+> "]"
               -- (if wrapped then name else "Just" <+> name) <$>
               -- indent 4 ("|> Maybe.map" <+> parens (toStringSrc <> "Http.encodeUri >> (++)" <+> dquotes (elmName <> equals)) <$>
diff --git a/test/elm-sources/getBooksSource.elm b/test/elm-sources/getBooksSource.elm
--- a/test/elm-sources/getBooksSource.elm
+++ b/test/elm-sources/getBooksSource.elm
@@ -27,11 +27,11 @@
                   else
                     Nothing ]
                 , [ query_sort
-                    |> Maybe.map (Url.Builder.string "query_sort") ]
+                    |> Maybe.map (Url.Builder.string "sort") ]
                 , [ query_year
-                    |> Maybe.map (String.fromInt >> Url.Builder.string "query_year") ]
+                    |> Maybe.map (String.fromInt >> Url.Builder.string "year") ]
                 , [ Just query_category
-                    |> Maybe.map (Url.Builder.string "query_category") ]
+                    |> Maybe.map (Url.Builder.string "category") ]
                 , query_filters
                     |> List.map (\val -> Just (Url.Builder.string "filters[]" (maybeBoolToIntStr val)))
                 ])