-- this helper function may help ...

ge :: String -> String -> IO String
ge str dbname = getEnv ("SQL_DAAS_" ++ str ++ ('_':dbname))
ge :: String -> String -> IO String
ge str dbname = getEnv ("SQL_DAAS_" ++ str ++ ('_':dbname))
ge str dbname = getEnv ("SQL_DAAS_" ++ str ++ ('_':dbname))