1 files changed, 11 insertions, 1 deletions

diff --git a/dht/Presence/ConfigFiles.hs b/dht/Presence/ConfigFiles.hs
index d0164e33..e88989f2 100644
--- a/dht/Presence/ConfigFiles.hs
+++ b/dht/Presence/ConfigFiles.hs
@@ -59,7 +59,7 @@ createConfigFile :: ByteString -> FilePath -> IO ()
 createConfigFile tag path = do
     let dir = dropFileName path
     doesDirectoryExist dir >>= flip unless (do
-            createDirectory dir
+            createDirectoryIfMissing True dir
         )
     withFile path WriteMode $ \h -> do
         L.hPutStrLn h tag
@@ -79,6 +79,16 @@ addItem item tag path =
     in doit
 
 
+getProfiles :: User -> IO [Profile]
+getProfiles user = do
+    home <- homeDirectory <$> getUserEntryForName (unpack user)
+    let cfg = home </> configDir
+    fs <- listDirectory cfg
+    ds <- filterM (doesDirectoryExist . (cfg </>))  fs
+    return ds
+  `catchIOError` \e -> do
+    return []
+
 -- | Modify a presence configuration file.  This function will iterate over all
 -- items in the file and invoke a test function.  If the function returns
 -- Nothing, that item is removed from the file.  Otherwise, the function may