- "host=" ++ (host cfg) ++ " " ++
- "port=" ++ (show $ port cfg) ++ " " ++
- "user=" ++ (username cfg) ++ " " ++
- "password=" ++ (password cfg) ++ " " ++
- "dbname=" ++ (database cfg)
+ trim $ join " " [host_part, port_part, user_part, pw_part, db_part]
+ where
+ -- | Strip leading/trailing whitespace, and collapse multiple
+ -- consecutive spaces into one.
+ trim :: String -> String
+ trim = unwords . words
+
+ host_part = let h = fmap ("host=" ++) (host cfg) in fromMaybe "" h
+ port_part = let p = fmap (("port=" ++) . show) (port cfg) in fromMaybe "" p
+ user_part = let u = fmap ("user=" ++) (username cfg) in fromMaybe "" u
+ pw_part = let pw = fmap ("password=" ++) (password cfg) in fromMaybe "" pw
+ db_part = let db = fmap ("dbname=" ++) (database cfg) in fromMaybe "" db
+