1 files changed, 1 insertions, 1 deletions
diff --git a/ymir/mlmmj-expose.nix b/ymir/mlmmj-expose.nix
index 3481308d..89bd566e 100644
--- a/ymir/mlmmj-expose.nix
+++ b/ymir/mlmmj-expose.nix
@@ -75,7 +75,7 @@ let
      getSubscribers :: IO [String]
      getSubscribers = map (map toLower) . concat <$> mapM (flip catchIOError (\e -> if isDoesNotExistError e then return [] else ioError e) . readDir) ["subscribers.d", "digesters.d"]
        where
-          readDir dir = concat <$> (mapM (fmap lines . readFile) =<< (getDirectoryContents dir))
+          readDir dir = concat <$> (mapM (fmap lines . readFile) . (dir </>) =<< (getDirectoryContents dir))
    '';
    buildCommand = ''
      mkdir -p $out/bin

diff --git a/ymir/mlmmj-expose.nix b/ymir/mlmmj-expose.nix index 3481308d..89bd566e 100644 --- a/ymir/mlmmj-expose.nix +++ b/ymir/mlmmj-expose.nix
@@ -75,7 +75,7 @@ let
75	getSubscribers :: IO [String]	75	getSubscribers :: IO [String]
76	getSubscribers = map (map toLower) . concat <$> mapM (flip catchIOError (\e -> if isDoesNotExistError e then return [] else ioError e) . readDir) ["subscribers.d", "digesters.d"]	76	getSubscribers = map (map toLower) . concat <$> mapM (flip catchIOError (\e -> if isDoesNotExistError e then return [] else ioError e) . readDir) ["subscribers.d", "digesters.d"]
77	where	77	where
78	readDir dir = concat <$> (mapM (fmap lines . readFile) =<< (getDirectoryContents dir))	78	readDir dir = concat <$> (mapM (fmap lines . readFile) . (dir </>) =<< (getDirectoryContents dir))
79	'';	79	'';
80	buildCommand = ''	80	buildCommand = ''
81	mkdir -p $out/bin	81	mkdir -p $out/bin