getBinDir, getLibDir, getDataDir, getLibexecDir :: IO FilePath
getBinDir = catch (getEnv "BottleStory_bindir") (\_ -> return bindir)
getBinDir, getLibDir, getDataDir, getLibexecDir :: IO FilePath
getBinDir = catch (getEnv "BottleStory_bindir") (\_ -> return bindir)
getBinDir = catch (getEnv "BottleStory_bindir") (\_ -> return bindir)