monomer-flatpak-example-0.0.14.0: app/Util.hs

module Util (getXdgDataDir) where

import System.Directory (XdgDirectory (..), createDirectoryIfMissing, getXdgDirectory)

getXdgDataDir :: IO FilePath
getXdgDataDir = do
  dir <- getXdgDirectory XdgData "monomer-flatpak-example"
  createDirectoryIfMissing True dir
  pure dir