From cd75af0ab2b6d7c07e8e520ec4162b94559022d1 Mon Sep 17 00:00:00 2001
From: Keagan McClelland <keagan.mcclelland@gmail.com>
Date: Wed, 29 Sep 2021 16:09:27 -0600
Subject: [PATCH] creates correct icon file

---
 src/Lib/PkgRepository.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/Lib/PkgRepository.hs b/src/Lib/PkgRepository.hs
index f79d4d6..f5debcd 100644
--- a/src/Lib/PkgRepository.hs
+++ b/src/Lib/PkgRepository.hs
@@ -65,7 +65,6 @@ import           Startlude                      ( ($)
                                                 , filter
                                                 , find
                                                 , for_
-                                                , fromMaybe
                                                 , headMay
                                                 , not
                                                 , partitionEithers
@@ -157,7 +156,11 @@ extractPkg fp = handle @_ @SomeException cleanup $ do
             liftIO . throwIO $ ManifestParseException (pkgRoot </> "manifest.json")
         Right manifest -> do
             wait iconTask
-            let iconDest = "icon" <.> T.unpack (fromMaybe "png" (serviceManifestIcon manifest))
+            let iconDest = "icon" <.> case serviceManifestIcon manifest of
+                    Nothing -> "png"
+                    Just x  -> case takeExtension (T.unpack x) of
+                        ""    -> "png"
+                        other -> other
             liftIO $ renameFile (pkgRoot </> "icon.tmp") (pkgRoot </> iconDest)
     hash <- wait pkgHashTask
     liftIO $ writeFile (pkgRoot </> "hash.bin") hash