diff --git a/Database/MongoDB/Connection.hs b/Database/MongoDB/Connection.hs
--- a/Database/MongoDB/Connection.hs
+++ b/Database/MongoDB/Connection.hs
@@ -67,15 +67,18 @@
 
 showHostPort :: Host -> String
 -- ^ Display host as \"host:port\"
-showHostPort (Host hostname port) = hostname ++ ":" ++ (case port of
-	Service s -> s
-	PortNumber p -> show p
+-- TODO: Distinguish Service and UnixSocket port
+showHostPort (Host hostname port) = hostname ++ ":" ++ portname  where
+	portname = case port of
+		Service s -> s
+		PortNumber p -> show p
 #if !defined(mingw32_HOST_OS) && !defined(cygwin32_HOST_OS) && !defined(_WIN32)
-	UnixSocket s -> s)
+		UnixSocket s -> s
 #endif
 
 readHostPortM :: (Monad m) => String -> m Host
 -- ^ Read string \"hostname:port\" as @Host hosthame port@ or \"hostname\" as @host hostname@ (default port). Fail if string does not match either syntax.
+-- TODO: handle Service and UnixSocket port
 readHostPortM = either (fail . show) return . parse parser "readHostPort" where
 	hostname = many1 (letter <|> digit <|> char '-' <|> char '.')
 	parser = do
diff --git a/mongoDB.cabal b/mongoDB.cabal
--- a/mongoDB.cabal
+++ b/mongoDB.cabal
@@ -1,5 +1,5 @@
 name: mongoDB
-version: 0.9.3
+version: 0.9.4
 build-type: Simple
 license: OtherLicense
 license-file: LICENSE