From 06563409e6f2b1cca7bc1b27e31efd07a7569da8 Mon Sep 17 00:00:00 2001 From: Philip McGrath Date: Thu, 14 Apr 2022 22:41:04 -0400 Subject: [PATCH] minimal support for offline builds Normally, Elm performs HTTP requests before building to obtain or update its list of all registed packages and their versions. This is problematic in the Guix build environment. This patch causes Elm to check if the `GUIX_ELM_OFFLINE_REGISTRY_FILE` is set and, if so, to use the contents of the file it specifies as though it were the response from https://package.elm-lang.org/all-packages. This patch does not attempt to add more general support for offline builds. In particular, it does not attempt to support incremental updates to the package registry cache file. See also discussion at https://discourse.elm-lang.org/t/private-package-tool-spec/6779/25. --- builder/src/Deps/Registry.hs | 25 +++++++++++++++++++++---- 1 file changed, 21 insertions(+), 4 deletions(-) diff --git a/builder/src/Deps/Registry.hs b/builder/src/Deps/Registry.hs index 8d7def98..70cf3622 100644 --- a/builder/src/Deps/Registry.hs +++ b/builder/src/Deps/Registry.hs @@ -18,6 +18,8 @@ import Control.Monad (liftM2) import Data.Binary (Binary, get, put) import qualified Data.List as List import qualified Data.Map.Strict as Map +import System.Environment as Env +import qualified Data.ByteString as BS import qualified Deps.Website as Website import qualified Elm.Package as Pkg @@ -190,13 +192,28 @@ getVersions' name (Registry _ versions) = post :: Http.Manager -> String -> D.Decoder x a -> (a -> IO b) -> IO (Either Exit.RegistryProblem b) post manager path decoder callback = let - url = Website.route path [] - in - Http.post manager url [] Exit.RP_Http $ - \body -> + mkBodyCallback url body = case D.fromByteString decoder body of Right a -> Right <$> callback a Left _ -> return $ Left $ Exit.RP_Data url body + postOnline url cb = + Http.post manager url [] Exit.RP_Http cb + performPost f url = + f url (mkBodyCallback url) + in + do + maybeFile <- Env.lookupEnv "GUIX_ELM_OFFLINE_REGISTRY_FILE" + case (path, maybeFile) of + ( "/all-packages", Just file ) -> + performPost postOffline file + ( _, _ ) -> + -- don't know how to handle other endpoints yet + performPost postOnline (Website.route path []) + +postOffline :: String -> (BS.ByteString -> IO a) -> IO a +postOffline file callback = do + body <- BS.readFile file + callback body -- 2.32.0 21 16:16:38 +0200'>2023-04-21tests: Fix checks for expected failures....Eric Bavier /span>platforms: x86: Rename Hurd hurd to i586-gnu....Mathieu Othacehe 2022-09-24image: Make the operating-system field mandatory....Mathieu Othacehe 2022-05-25images: hurd: Adjust module imports....Efraim Flashner 2022-05-25Move (gnu platform) and (gnu platforms ...) to guix/....Josselin Poiret 2021-10-18system: image: Ensure Hurd images are cross-compiled if needed....Ludovic Courtès 2021-10-11gnu: Add platform support....Mathieu Othacehe 2021-08-29Migrate to the new 'targets' field of bootloader-configuration....Maxim Cournoyer 2021-02-17scripts: system: Accept <image> records as input....Mathieu Othacehe 2020-09-30system: image: Add image-type support....Mathieu Othacehe 2020-09-29images: hurd: Add hurd-barebones-qcow2-image....Mathieu Othacehe