connStr :: IO ByteString
connStr = do
    params <- dbConnParams
    return $ foldr (\(k,v) t -> t <> (encodeUtf8 $ k <> "=" <> v <> " ")) "" params
connStr :: IO ByteString
connStr = do
    params <- dbConnParams
    return $ foldr (\(k,v) t -> t <> (encodeUtf8 $ k <> "=" <> v <> " ")) "" params
connStr = do
    params <- dbConnParams
    return $ foldr (\(k,v) t -> t <> (encodeUtf8 $ k <> "=" <> v <> " ")) "" params