diff --git a/src/Test/Swagger/Gen.hs b/src/Test/Swagger/Gen.hs
--- a/src/Test/Swagger/Gen.hs
+++ b/src/Test/Swagger/Gen.hs
@@ -129,7 +129,7 @@
     let randomHeaders' = catMaybes
                  $   (\h -> (fst h,) <$> snd h)
                  <$> ((mk . fst &&& snd) <$> randomHeaders)
-                 <>  [("Host", (T.pack . (^. name)) <$> mHost)]
+                 <>  [("Host", (T.pack . hostNameAndPort) <$> mHost)]
                  <>  [("Content-Type", fst <$> maybeMimeAndBody)]
                  <>  [("User-Agent", Just $ "swagger-test/" <> T.pack (showVersion version))]
 
@@ -149,7 +149,10 @@
   schemeForPort _ = Http
 
   buildHost :: Scheme -> Host -> String
-  buildHost sc h = schemeToHttpPrefix sc <> (h ^. name) <> maybe "" ((':':) . show) (h ^. port)
+  buildHost sc h = schemeToHttpPrefix sc <> hostNameAndPort h
+
+  hostNameAndPort :: Host -> String
+  hostNameAndPort h = (h ^. name) <> maybe "" ((':':) . show) (h ^. port)
 
   schemeToHttpPrefix Http  = "http://"
   schemeToHttpPrefix Https = "https://"
diff --git a/src/Test/Swagger/Print.hs b/src/Test/Swagger/Print.hs
--- a/src/Test/Swagger/Print.hs
+++ b/src/Test/Swagger/Print.hs
@@ -52,9 +52,9 @@
        Nothing -> mempty
 printRequest FormatCurl (HttpRequest host method path query headers body) =
      fromText "curl -i"
-  <> if method /= methodGet
-      then fromUtf8Bytestring $ " -X " <> method
-      else mempty
+  <> (if method /= methodGet
+        then fromUtf8Bytestring $ " -X " <> method
+        else mempty)
   <> fromText " '"
   <> fromText (escapeS host')
   <> fromText (escape path)
diff --git a/swagger-test.cabal b/swagger-test.cabal
--- a/swagger-test.cabal
+++ b/swagger-test.cabal
@@ -1,5 +1,5 @@
 name:                swagger-test
-version:             0.2.6
+version:             0.2.7
 synopsis:            Testing of Swagger APIs
 description:         This package provides a library and executable tool
                      that supports testing APIs specified with Swagger. It