Get a proper working directory

app/Main.hs

@@ -7,6 +7,9 @@ import Control.Monad.Buuka
 
 import Data.Environment
 
+import UnliftIO.Directory
+       (XdgDirectory(XdgData), getXdgDirectory)
+
 import qualified Operations
 
 commands :: Parser (BuukaM ())
@@ -19,5 +22,5 @@ commands = subparser
 
 main :: IO ()
 main = do
-  let env = Environment "."
+  env <- Environment <$> getXdgDirectory XdgData "buuka"
   execParser (info (commands <**> helper) fullDesc) >>= runBuukaM env