Add support for GANETI_ROOTDIR in Haskell code
Add support for GANETI_ROOTDIR in Haskell code

unsafePerformIO is required to go from the IO monad to pure code.

Signed-off-by: Michael Hanselmann <68b67885ff74281219b4a4be33cc20fd45078d7c@google.com>
Reviewed-by: Iustin Pop <acf83a5274f31a43af6b914614365999469c1a31@google.com>

andir/ganeti,leshchevds/ganeti,mbakke/ganeti,onponomarev/ganeti,grnet/snf-ganeti,yiannist/ganeti,ganeti-github-testing/ganeti-test-1,onponomarev/ganeti,ganeti/ganeti,ganeti/ganeti,bitemyapp/ganeti,yiannist/ganeti,ganeti-github-testing/ganeti-test-1,apyrgio/ganeti,andir/ganeti,apyrgio/snf-ganeti,grnet/snf-ganeti,leshchevds/ganeti,bitemyapp/ganeti,mbakke/ganeti,yiannist/ganeti,apyrgio/ganeti,apyrgio/snf-ganeti,dimara/ganeti,ganeti/ganeti,mbakke/ganeti,leshchevds/ganeti,andir/ganeti,dimara/ganeti