diff options
| -rw-r--r-- | ymir/mlmmj-expose.hs | 1 |
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 | |||
| 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 | ||