summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAdrian Cochrane <adrian@openwork.nz>2020-05-15 19:55:36 +1200
committerAdrian Cochrane <adrian@openwork.nz>2020-05-15 19:55:36 +1200
commita0a3f383b82542bad1a519093e3670fdb3056ba4 (patch)
tree5516fceaccc89610cd3ea88f60ecf89aec8f109c
parentaf23364db6562ed15d19290f24ded890f26a7d75 (diff)
downloadhurl-a0a3f383b82542bad1a519093e3670fdb3056ba4.tar.gz
hurl-a0a3f383b82542bad1a519093e3670fdb3056ba4.tar.bz2
hurl-a0a3f383b82542bad1a519093e3670fdb3056ba4.zip
Don't crash on missing /usr/share/app-info/icons/
-rw-r--r--src/Network/URI/XDG/AppStream.hs2
1 files changed, 1 insertions, 1 deletions
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)