connectToMysql :: IO MySQLConn
connectToMysql = do
    mysqlUser <- maybe "" BS.pack <$> lookupEnv "DB_USER"
    mysqlPass <- maybe "" BS.pack <$> lookupEnv "DB_PASS"
    connect $ defaultConnectInfo
            { ciUser = mysqlUser
            , ciDatabase = "retailzen"
            , ciPassword = mysqlPass
            }
connectToMysql :: IO MySQLConn
connectToMysql = do
    mysqlUser <- maybe "" BS.pack <$> lookupEnv "DB_USER"
    mysqlPass <- maybe "" BS.pack <$> lookupEnv "DB_PASS"
    connect $ defaultConnectInfo
            { ciUser = mysqlUser
            , ciDatabase = "retailzen"
            , ciPassword = mysqlPass
            }
connectToMysql = do
    mysqlUser <- maybe "" BS.pack <$> lookupEnv "DB_USER"
    mysqlPass <- maybe "" BS.pack <$> lookupEnv "DB_PASS"
    connect $ defaultConnectInfo
            { ciUser = mysqlUser
            , ciDatabase = "retailzen"
            , ciPassword = mysqlPass
            }