fix instruction and license parsing

This commit is contained in:
Lucy Cifferello
2021-07-16 13:36:37 -04:00
committed by Keagan McClelland
parent 9c8f236095
commit 6e9288a7af
2 changed files with 3 additions and 14 deletions

View File

@@ -29,8 +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 satisfactory
$logInfo $ show best
pure best
addPackageHeader :: (MonadHandler m, KnownSymbol a) => FilePath -> FilePath -> Extension a -> m ()