From 49d1fd08abe933a6caacbe7e105facb76b4fa3b5 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <pngwjpgh@users.noreply.github.com>
Date: Mon, 12 Dec 2016 15:34:24 +0100
Subject: chdir

---
 ymir/mlmmj-expose.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/ymir/mlmmj-expose.hs b/ymir/mlmmj-expose.hs
index b5fc9cab..3d19035c 100644
--- a/ymir/mlmmj-expose.hs
+++ b/ymir/mlmmj-expose.hs
@@ -145,6 +145,7 @@ main = do
       args <- getArgs
       case args of
         [(dropTrailingPathSeparator -> listDir)] -> do
+          setCurrentDirectory listDir
           subscribers <- getSubscribers
           identities <- getIdentities
 
-- 
cgit v1.2.3