diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2019-08-06 19:39:23 +0200 |
|---|---|---|
| committer | Daniel Gröber <dxld@darkboxed.org> | 2020-05-10 21:50:44 +0200 |
| commit | bda559bf059ee42e3e01c1280f7a64dd2673d725 (patch) | |
| tree | bdfe97db7a53bd68638a6a7f102cd0942456e948 /tests/CompileTest.hs | |
| parent | f606584fd104f864694e4fb9b943ef13904cdc96 (diff) | |
Refactor Program versions handling
This mainly renames the program version getters to get* and make them
consistenly return Version directly. Such that wrappers like GhcVersion
have to be added at the callsites of the relevant functions.
Diffstat (limited to 'tests/CompileTest.hs')
| -rw-r--r-- | tests/CompileTest.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/CompileTest.hs b/tests/CompileTest.hs index c0280bf..8af7335 100644 --- a/tests/CompileTest.hs +++ b/tests/CompileTest.hs @@ -72,7 +72,7 @@ main = do case args of "list-versions":[] -> do - mapM_ print =<< relevantCabalVersions =<< ghcVersion + mapM_ print =<< relevantCabalVersions =<< (GhcVersion <$> getGhcVersion) "list-versions":ghc_ver_str:[] -> mapM_ print =<< relevantCabalVersions (GhcVersion (parseVer ghc_ver_str)) _ -> @@ -125,7 +125,7 @@ allCabalVersions (GhcVersion ghc_ver) = do testRelevantCabalVersions :: Env => IO () testRelevantCabalVersions = do - ghc_ver <- ghcVersion + ghc_ver <- GhcVersion <$> getGhcVersion relevant_cabal_versions <- relevantCabalVersions ghc_ver testCabalVersions $ map CabalVersion relevant_cabal_versions ++ [CabalHEAD ()] |