diff options
| author | Gregor Kleen <pngwjpgh@users.noreply.github.com> | 2016-12-12 15:34:24 +0100 |
|---|---|---|
| committer | Gregor Kleen <pngwjpgh@users.noreply.github.com> | 2016-12-12 15:34:24 +0100 |
| commit | 49d1fd08abe933a6caacbe7e105facb76b4fa3b5 (patch) | |
| tree | 0f60828a168e0e7e4c9d85f105f42b962cdcd0e2 /ymir/mlmmj-expose.hs | |
| parent | 87e9b7a54ae50398e3c93d8808ade354be035be3 (diff) | |
| download | nixos-49d1fd08abe933a6caacbe7e105facb76b4fa3b5.tar nixos-49d1fd08abe933a6caacbe7e105facb76b4fa3b5.tar.gz nixos-49d1fd08abe933a6caacbe7e105facb76b4fa3b5.tar.bz2 nixos-49d1fd08abe933a6caacbe7e105facb76b4fa3b5.tar.xz nixos-49d1fd08abe933a6caacbe7e105facb76b4fa3b5.zip | |
chdir
Diffstat (limited to 'ymir/mlmmj-expose.hs')
| -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 | ||