hurl 1.4.1.0 → 1.4.1.1
raw patch · 2 files changed
+3/−3 lines, 2 files
Files
- hurl.cabal +1/−1
- src/Network/URI/XDG/AppStream.hs +2/−2
hurl.cabal view
@@ -10,7 +10,7 @@ -- PVP summary: +-+------- breaking API changes -- | | +----- non-breaking API additions -- | | | +--- code changes with no API change-version: 1.4.1.0+version: 1.4.1.1 -- A short (one-line) description of the package. synopsis: Haskell URL resolver
src/Network/URI/XDG/AppStream.hs view
@@ -184,7 +184,7 @@ iconURL el@(XML.Element _ attrs _) = case "type" `M.lookup` attrs of Just "stock" -> "icon:" `Txt.append` val -- URI scheme NOT implemented- Just "cached" -> "file:///{usr/share,var/cache}/app-info/icons/*/*/" `Txt.append` val -- FIXME, resolve & provide multiple options.+ Just "cached" -> "file:///{usr/share,var/cache}/app-info/icons/*/*/" `Txt.append` val Just "local" -> "file://" `Txt.append` val Just "remote" -> val _ -> "about:blank"@@ -195,7 +195,7 @@ scanIconCache :: IO IconCache scanIconCache = do sharePaths <- listDirectory "/usr/share/app-info/icons/" `catch` handleListError- varPaths <- listDirectory "/usr/share/app-info/icons/"+ varPaths <- listDirectory "/var/cache/app-info/icons/" `catch` handleListError paths <- forM (sharePaths ++ varPaths) (\x -> listDirectory x `catch` handleListError) return (concat paths ++ sharePaths ++ varPaths)