Fixup
This commit is contained in:
		
							parent
							
								
									c057b4ae5c
								
							
						
					
					
						commit
						d2346a543a
					
				| @ -103,7 +103,7 @@ variables: | ||||
|   artifacts: | ||||
|     expire_in: 2 week | ||||
|     paths: | ||||
|       - golden | ||||
|       - test/golden | ||||
|       - dist-newstyle/cache/ | ||||
|     when: on_failure | ||||
| 
 | ||||
| @ -240,7 +240,7 @@ test:linux:bootstrap_script: | ||||
| test:windows:bootstrap_powershell_script: | ||||
|   stage: test | ||||
|   script: | ||||
|     - ./bootstrap-haskell.ps1 -InstallDir $CI_PROJECT_DIR -BootstrapUrl $CI_PROJECT_DIR/bootstrap-haskell -InBash | ||||
|     - ./scripts/bootstrap/bootstrap-haskell.ps1 -InstallDir $CI_PROJECT_DIR -BootstrapUrl $CI_PROJECT_DIR/bootstrap-haskell -InBash | ||||
|   after_script: | ||||
|     - "[Environment]::SetEnvironmentVariable('GHCUP_INSTALL_BASE_PREFIX', $null, [System.EnvironmentVariableTarget]::User)" | ||||
|     - "[Environment]::SetEnvironmentVariable('GHCUP_MSYS2', $null, [System.EnvironmentVariableTarget]::User)" | ||||
|  | ||||
| @ -24,7 +24,7 @@ export BOOTSTRAP_HASKELL_NONINTERACTIVE=yes | ||||
| export BOOTSTRAP_HASKELL_GHC_VERSION=$GHC_VERSION | ||||
| export BOOTSTRAP_HASKELL_CABAL_VERSION=$CABAL_VERSION | ||||
| 
 | ||||
| ./bootstrap-haskell | ||||
| ./scripts/bootstrap/bootstrap-haskell | ||||
| 
 | ||||
| [ "$(ghc --numeric-version)" = "${GHC_VERSION}" ] | ||||
| 
 | ||||
|  | ||||
| @ -13,7 +13,7 @@ ecabal() { | ||||
| } | ||||
| 
 | ||||
| eghcup() { | ||||
| 	ghcup -v -c -s file://$CI_PROJECT_DIR/ghcup-${JSON_VERSION}.yaml "$@" | ||||
| 	ghcup -v -c -s file://$CI_PROJECT_DIR/data/metadata/ghcup-${JSON_VERSION}.yaml "$@" | ||||
| } | ||||
| 
 | ||||
| git describe --always | ||||
|  | ||||
| @ -13,7 +13,7 @@ ecabal() { | ||||
| } | ||||
| 
 | ||||
| eghcup() { | ||||
| 	ghcup -v -c -s file://$CI_PROJECT_DIR/ghcup-${JSON_VERSION}.yaml "$@" | ||||
| 	ghcup -v -c -s file://$CI_PROJECT_DIR/data/metadata/ghcup-${JSON_VERSION}.yaml "$@" | ||||
| } | ||||
| 
 | ||||
| git describe --always | ||||
|  | ||||
| @ -18,9 +18,9 @@ raw_eghcup() { | ||||
| 
 | ||||
| eghcup() { | ||||
| 	if [ "${OS}" = "WINDOWS" ] ; then | ||||
| 		ghcup -v -c -s file:/$CI_PROJECT_DIR/ghcup-${JSON_VERSION}.yaml "$@" | ||||
| 		ghcup -v -c -s file:/$CI_PROJECT_DIR/data/metadata/ghcup-${JSON_VERSION}.yaml "$@" | ||||
| 	else | ||||
| 		ghcup -v -c -s file://$CI_PROJECT_DIR/ghcup-${JSON_VERSION}.yaml "$@" | ||||
| 		ghcup -v -c -s file://$CI_PROJECT_DIR/data/metadata/ghcup-${JSON_VERSION}.yaml "$@" | ||||
| 	fi | ||||
| } | ||||
| 
 | ||||
| @ -92,7 +92,7 @@ rm -rf "${GHCUP_DIR}" | ||||
| ### manual cli based testing | ||||
| 
 | ||||
| 
 | ||||
| ghcup-gen check -f ghcup-${JSON_VERSION}.yaml | ||||
| ghcup-gen check -f data/metadata/ghcup-${JSON_VERSION}.yaml | ||||
| 
 | ||||
| eghcup --numeric-version | ||||
| 
 | ||||
| @ -172,10 +172,10 @@ else | ||||
| fi | ||||
| 
 | ||||
| # check that lazy loading works for 'whereis' | ||||
| cp "$CI_PROJECT_DIR/ghcup-${JSON_VERSION}.yaml" "$CI_PROJECT_DIR/ghcup-${JSON_VERSION}.yaml.bak" | ||||
| echo '**' > "$CI_PROJECT_DIR/ghcup-${JSON_VERSION}.yaml" | ||||
| cp "$CI_PROJECT_DIR/data/metadata/ghcup-${JSON_VERSION}.yaml" "$CI_PROJECT_DIR/data/metadata/ghcup-${JSON_VERSION}.yaml.bak" | ||||
| echo '**' > "$CI_PROJECT_DIR/data/metadata/ghcup-${JSON_VERSION}.yaml" | ||||
| eghcup whereis ghc $(ghc --numeric-version) | ||||
| mv -f "$CI_PROJECT_DIR/ghcup-${JSON_VERSION}.yaml.bak" "$CI_PROJECT_DIR/ghcup-${JSON_VERSION}.yaml" | ||||
| mv -f "$CI_PROJECT_DIR/data/metadata/ghcup-${JSON_VERSION}.yaml.bak" "$CI_PROJECT_DIR/data/metadata/ghcup-${JSON_VERSION}.yaml" | ||||
| 
 | ||||
| eghcup rm $(ghc --numeric-version) | ||||
| 
 | ||||
|  | ||||
| @ -1403,15 +1403,14 @@ describe_result = $( LitE . StringL <$> | ||||
|                    ) | ||||
| 
 | ||||
| plan_json :: String | ||||
| plan_json = $( LitE . StringL <$> | ||||
|                      runIO (handleIO (\_ -> pure "") $ do | ||||
| plan_json = $( do | ||||
|                 (fp, c) <- runIO (handleIO (\_ -> pure ("", "")) $ do | ||||
|                              fp <- findPlanJson (ProjectRelativeToDir ".") | ||||
|                              qAddDependentFile fp | ||||
|                              c <- B.readFile fp | ||||
|                              (Just res) <- pure $ decodeStrict' @Value c | ||||
|                              pure $ T.unpack $ decUTF8Safe' $ encodePretty res | ||||
|                      ) | ||||
|                    ) | ||||
|                              pure (fp, T.unpack $ decUTF8Safe' $ encodePretty res)) | ||||
|                 when (not . null $ fp ) $ qAddDependentFile fp | ||||
|                 pure . LitE . StringL $ c) | ||||
| 
 | ||||
| formatConfig :: UserSettings -> String | ||||
| formatConfig settings | ||||
|  | ||||
| @ -26,6 +26,10 @@ extra-doc-files: | ||||
|   data/metadata/ghcup-0.0.6.yaml | ||||
|   data/metadata/ghcup-0.0.7.yaml | ||||
| 
 | ||||
| extra-source-files: | ||||
|   data/build_mk/default | ||||
|   data/build_mk/cross | ||||
| 
 | ||||
| source-repository head | ||||
|   type:     git | ||||
|   location: https://gitlab.haskell.org/haskell/ghcup-hs.git | ||||
|  | ||||
| @ -1924,7 +1924,7 @@ compileGHC targetGhc ov bstrap jobs mbuildConfig patchdir aargs buildFlavour had | ||||
| 
 | ||||
|  where | ||||
|   defaultConf =  | ||||
|     let cross_mk = $(LitE . StringL <$> (qAddDependentFile "data/build_mk/cross" >> runIO (readFile "data/build_mk/default"))) | ||||
|     let cross_mk = $(LitE . StringL <$> (qAddDependentFile "data/build_mk/cross" >> runIO (readFile "data/build_mk/cross"))) | ||||
|         default_mk = $(LitE . StringL <$> (qAddDependentFile "data/build_mk/default" >> runIO (readFile "data/build_mk/default"))) | ||||
|     in case targetGhc of | ||||
|          Left (GHCTargetVersion (Just _) _) -> cross_mk | ||||
|  | ||||
| @ -1040,7 +1040,7 @@ ensureGlobalTools = do | ||||
|   let dl = downloadCached' shimDownload (Just "gs.exe") Nothing | ||||
|   void $ (\(DigestError _ _) -> do | ||||
|       lift $ logWarn "Digest doesn't match, redownloading gs.exe..." | ||||
|       lift $ logDebug ("rm -f " <> T.pack shimDownload) | ||||
|       lift $ logDebug ("rm -f " <> (cacheDir dirs </> "gs.exe")) | ||||
|       lift $ hideError doesNotExistErrorType $ recycleFile (cacheDir dirs </> "gs.exe") | ||||
|       liftE @'[DigestError , DownloadFailed] $ dl | ||||
|     ) `catchE` (liftE @'[DigestError , DownloadFailed] dl) | ||||
|  | ||||
| @ -13,4 +13,5 @@ import           Test.Hspec | ||||
| 
 | ||||
| spec :: Spec | ||||
| spec = do | ||||
|   roundtripAndGoldenSpecs (Proxy @GHCupInfo) | ||||
|   roundtripAndGoldenSpecsWithSettings (defaultSettings { goldenDirectoryOption = CustomDirectoryName "test/golden" }) (Proxy @GHCupInfo) | ||||
| 
 | ||||
|  | ||||
		Loading…
	
		Reference in New Issue
	
	Block a user