From a0a3f383b82542bad1a519093e3670fdb3056ba4 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Fri, 15 May 2020 19:55:36 +1200
Subject: [PATCH] Don't crash on missing /usr/share/app-info/icons/

---
 src/Network/URI/XDG/AppStream.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Network/URI/XDG/AppStream.hs b/src/Network/URI/XDG/AppStream.hs
index eda68f1..5f165f9 100644
--- a/src/Network/URI/XDG/AppStream.hs
+++ b/src/Network/URI/XDG/AppStream.hs
@@ -195,7 +195,7 @@ type IconCache = [FilePath]
 scanIconCache :: IO IconCache
 scanIconCache = do
     sharePaths <- listDirectory "/usr/share/app-info/icons/" `catch` handleListError
-    varPaths <- listDirectory "/usr/share/app-info/icons/"
+    varPaths <- listDirectory "/usr/share/app-info/icons/" `catch` handleListError
     paths <- forM (sharePaths ++ varPaths) (\x -> listDirectory x `catch` handleListError)
     return (concat paths ++ sharePaths ++ varPaths)
 
-- 
2.30.2