+-- | Parse the environment and return the node/instance names.
+-- This also hardcodes here the default node/instance file names.
+parseEnv :: () -> IO (String, String)
+parseEnv () = do
+ a <- getEnvDefault "HTOOLS_NODES" "nodes"
+ b <- getEnvDefault "HTOOLS_INSTANCES" "instances"
+ return (a, b)