diff --git a/elm-export.cabal b/elm-export.cabal
--- a/elm-export.cabal
+++ b/elm-export.cabal
@@ -1,5 +1,5 @@
 name: elm-export
-version: 0.6.0.0
+version: 0.6.0.1
 cabal-version: >=1.10
 build-type: Simple
 license: OtherLicense
@@ -54,7 +54,7 @@
         base >=4.8.2.0,
         bytestring >=0.10.6.0,
         containers >=0.5.6.2,
-        elm-export >=0.6.0.0,
+        elm-export >=0.6.0.1,
         hspec >=2.2.4,
         hspec-core >=2.2.4,
         quickcheck-instances >=0.3.12,
diff --git a/src/Elm/Record.hs b/src/Elm/Record.hs
--- a/src/Elm/Record.hs
+++ b/src/Elm/Record.hs
@@ -64,9 +64,9 @@
     dt <- renderRef datatype
     return $ "List" <+> parens dt
   renderRef (ETuple2 x y) = do
-    dx <- render x
-    dy <- render y
-    return . spaceparens $ dx <> comma <+> dy
+    dx <- renderRef x
+    dy <- renderRef y
+    return . parens $ dx <> comma <+> dy
   renderRef (EMaybe datatype) = do
     dt <- renderRef datatype
     return $ "Maybe" <+> parens dt
diff --git a/test/CommentType.elm b/test/CommentType.elm
--- a/test/CommentType.elm
+++ b/test/CommentType.elm
@@ -7,7 +7,7 @@
 type alias Comment =
     { postId : Int
     , text : String
-    , mainCategories : ( String, String )
+    , mainCategories : (String, String)
     , published : Bool
     , created : Date
     , tags : Dict (String) (Int)
diff --git a/test/CommentTypeWithOptions.elm b/test/CommentTypeWithOptions.elm
--- a/test/CommentTypeWithOptions.elm
+++ b/test/CommentTypeWithOptions.elm
@@ -7,7 +7,7 @@
 type alias Comment =
     { commentPostId : Int
     , commentText : String
-    , commentMainCategories : ( String, String )
+    , commentMainCategories : (String, String)
     , commentPublished : Bool
     , commentCreated : Date
     , commentTags : Dict (String) (Int)
diff --git a/test/ExportSpec.hs b/test/ExportSpec.hs
--- a/test/ExportSpec.hs
+++ b/test/ExportSpec.hs
@@ -171,6 +171,8 @@
         toElmTypeRef (Proxy :: Proxy Post) `shouldBe` "Post"
       it "toElmTypeRef [Comment]" $
         toElmTypeRef (Proxy :: Proxy [Comment]) `shouldBe` "List (Comment)"
+      it "toElmTypeRef (Comment, String)" $
+        toElmTypeRef (Proxy :: Proxy (Comment, String)) `shouldBe` "(Comment, String)"
       it "toElmTypeRef String" $
         toElmTypeRef (Proxy :: Proxy String) `shouldBe` "String"
       it "toElmTypeRef (Maybe String)" $
@@ -396,4 +398,4 @@
     Just (c, cs) -> cons (Data.Char.toUpper c) cs
 
 withPrefix :: Text -> Text -> Text
-withPrefix prefix s = prefix <> (initCap s)
+withPrefix prefix s = prefix <> initCap s