@@ -73,6 +73,8 @@ main = do
73 { optReportProgress = clientSupportsProgress caps }
73 { optReportProgress = clientSupportsProgress caps }
74 initialise (mainRule >> action kick) event logger options vfs
74 initialise (mainRule >> action kick) event logger options vfs
76+ -- Note that this whole section needs to change once we have genuine
77+ -- multi environment support. Needs rewriting in terms of loadEnvironment.
76 putStrLn "[1/6] Finding hie-bios cradle"
78 putStrLn "[1/6] Finding hie-bios cradle"
77 cradle <- findCradle (dir <> "/")
79 cradle <- findCradle (dir <> "/")
78 print cradle
80 print cradle