nmattia/niv
1
1
Fork 0
mirror of https://github.com/nmattia/niv.git synced 2024-11-07 22:36:53 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #24 from nmattia/nm-update-on-changed

Browse Source 
Only prefetch if URL changed
This commit is contained in:
Nicolas Mattia 2019-02-23 12:06:07 +01:00 committed by GitHub
commit 84692d2123
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Main.hs
View File

@ -140,6 +140,8 @@ parsePackage = (,) <$> parsePackageName <*> parsePackageSpec
updatePackageSpec :: PackageSpec -> IO PackageSpec
updatePackageSpec = execStateT $ do
originalUrl <- getPackageSpecAttr "url"
-- Figures out the URL from the template
withPackageSpecAttr "url_template" (\case
Aeson.String (T.unpack -> template) -> do
@ -153,12 +155,22 @@ updatePackageSpec = execStateT $ do
)
-- Updates the sha256 based on the URL contents
withPackageSpecAttr "url" (\case
(,) <$> getPackageSpecAttr "url" <*> getPackageSpecAttr "sha256" >>= \case
-- If no URL is set, we simply can't prefetch
(Nothing, _) -> pure ()
-- If an URL is set and no sha is set, /do/ update
(Just url, Nothing) -> prefetch url
-- If both the URL and sha are set, update only if the url has changed
(Just url, Just{}) -> when (Just url /= originalUrl) (prefetch url)
where
prefetch :: Aeson.Value -> StateT PackageSpec IO ()
prefetch = \case
Aeson.String (T.unpack -> url) -> do
sha256 <- liftIO $ nixPrefetchURL url
setPackageSpecAttr "sha256" (Aeson.String $ T.pack sha256)
_ -> pure ()
)
completePackageSpec
:: PackageSpec