getDataDir = catchIO (getEnv "CommonResources_datadir") (\_ -> return datadir)
getDataDir = catchIO (getEnv "CommonResources_datadir") (\_ -> return datadir)
getDataDir = catchIO (getEnv "CommonResources_datadir") (\_ -> return datadir)