From 9aa6cf4edb1da4e1bfbf326586e98b30bfc2d121 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Thu, 2 Jun 2016 02:28:53 +0200
Subject: list instead of contents

---
 ymir/mlmmj-expose.nix | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ymir')

diff --git a/ymir/mlmmj-expose.nix b/ymir/mlmmj-expose.nix
index ba64283d..13f119c0 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) . map (dir </>) =<< (getDirectoryContents dir))
+          readDir dir = concat <$> (mapM (fmap lines . readFile) . map (dir </>) =<< (listDirectory dir))
     '';
     buildCommand = ''
       mkdir -p $out/bin
-- 
cgit v1.2.3