From 032987deed79e3113e52c4add1946fcae9a96c9a Mon Sep 17 00:00:00 2001
From: mbays <mbays@sdf.org>
Date: Sat, 4 May 2024 00:00:00 +0000
Subject: [PATCH] handle missing .diohsc/queues directory

---
 LineClient.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/LineClient.hs b/LineClient.hs
index 99c82f9..d928cc1 100644
--- a/LineClient.hs
+++ b/LineClient.hs
@@ -135,7 +135,7 @@ lineClient cOpts@ClientOptions{ cOptUserDataDir = userDataDir
         findQueueFiles :: IO [(FilePath,String)]
         findQueueFiles = do
             qf <- (\e -> [(queueFile, "") | e]) <$> doesFileExist queueFile
-            qfs <- ((\qn -> (queuesDir </> qn, qn)) <$>) <$> listDirectory queuesDir
+            qfs <- ignoreIOErr $ ((\qn -> (queuesDir </> qn, qn)) <$>) <$> listDirectory queuesDir
             return $ qf <> qfs
         queueLine :: T.Text -> Maybe QueueItem
         queueLine s = QueueURI Nothing <$> (parseUriAsAbsolute . escapeIRI $ T.unpack s)
-- 
2.11.4.GIT