getDataDir = catch (getEnv "BottleStory_datadir") (\_ -> return datadir)
getDataDir = catch (getEnv "BottleStory_datadir") (\_ -> return datadir)
getDataDir = catch (getEnv "BottleStory_datadir") (\_ -> return datadir)