fix build on earlier directory package

1 files changed, 3 insertions, 0 deletions

diff --git a/Presence/Presence.hs b/Presence/Presence.hs
index c614cc4e..f1bae255 100644
--- a/Presence/Presence.hs
+++ b/Presence/Presence.hs
@@ -234,6 +234,9 @@ chooseResourceName state k addr clientsNameForMe desired = do
         case Text.splitAt 43 wanted_profile0 of
             (pub,".tox") -> do
                 cdir <- ConfigFiles.configPath (L.fromChunks [Text.encodeUtf8 user]) "." ""
+#if !MIN_VERSION_directory(1,2,5)
+                let listDirectory path = filter (`notElem` [".",".."]) <$> getDirectoryContents path
+#endif
                 cfs  <- map Text.pack <$> listDirectory cdir `catchIOError` (\e -> return [])
                 let profiles = filter (\f -> Text.toLower f == Text.toLower wanted_profile0) cfs
                 -- hPutStrLn stderr $ "Toxmpp profile " ++ show (user,wanted_profile0,profiles,cfs)