Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-31 20:23:39 +00:00
Code Issues Packages Projects Releases Wiki Activity

more cleanup

Browse Source
This commit is contained in:
Keagan McClelland
2021-09-29 14:57:06 -06:00
parent 3a226231cd
commit f66d63c95c
6 changed files with 60 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/Lib/PkgRepository.hs
View File

@@ -48,7 +48,6 @@ import Startlude ( ($)
, (&&)
, (.)
, (<$>)
, (<>)
, Bool(..)
, ByteString
, Down(..)
@@ -234,7 +233,7 @@ getIcon pkg version = do
let pkgRoot = root </> show pkg </> show version
mIconFile <- find ((== "icon") . takeBaseName) <$> listDirectory pkgRoot
case mIconFile of
Nothing -> throwIO $ NotFoundE $ show pkg <> ": Icon"
Nothing -> throwIO $ NotFoundE $ [i|#{pkg}: Icon|]
Just x -> do
let ct = case takeExtension x of
".png" -> typePng