1 files changed, 1 insertions, 0 deletions
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

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
145	args <- getArgs	145	args <- getArgs
146	case args of	146	case args of
147	[(dropTrailingPathSeparator -> listDir)] -> do	147	[(dropTrailingPathSeparator -> listDir)] -> do
		148	setCurrentDirectory listDir
148	subscribers <- getSubscribers	149	subscribers <- getSubscribers
149	identities <- getIdentities	150	identities <- getIdentities
150		151