fix icon endpoint

This commit is contained in:
Lucy Cifferello
2021-09-23 19:14:22 -06:00
committed by Keagan McClelland
parent eda753551a
commit ac5acaa685
3 changed files with 27 additions and 34 deletions

View File

@@ -29,7 +29,6 @@ getBestVersion rootDir ext spec = do
appVersions <- liftIO $ getAvailableAppVersions rootDir ext
let satisfactory = filter ((<|| spec) . fst . unRegisteredAppVersion) appVersions
let best = getMax <$> foldMap (Just . Max . fst . unRegisteredAppVersion) satisfactory
$logInfo $ show best
pure best
addPackageHeader :: (MonadHandler m, KnownSymbol a) => FilePath -> FilePath -> Extension a -> m ()